Commit 57c15d14 authored by Anton Ertl's avatar Anton Ertl

error message adjusted

parent 89f7b37e
......@@ -306,7 +306,7 @@ defer compile, ( xt -- ) \ core-ext compile-comma
: lastflags ( -- c-addr )
\ the address of the flags byte in the last header
\ aborts if the last defined word was headerless
latest dup 0= abort" last word was headerless" cell+ ;
latest dup 0= abort" last word was nameless" cell+ ;
: immediate ( -- ) \ core
\G Make the compilation semantics of a word be to @code{execute}
......
......@@ -405,7 +405,7 @@ include ./recognizer.fs
: lastflags ( -- c-addr )
\ the address of the flags byte in the last header
\ aborts if the last defined word was headerless
latest dup 0= abort" last word was headerless"
latest dup 0= abort" last word was nameless"
>f+c ;
: imm>comp name>int ['] execute ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment