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 ...@@ -306,7 +306,7 @@ defer compile, ( xt -- ) \ core-ext compile-comma
: lastflags ( -- c-addr ) : lastflags ( -- c-addr )
\ the address of the flags byte in the last header \ the address of the flags byte in the last header
\ aborts if the last defined word was headerless \ 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 : immediate ( -- ) \ core
\G Make the compilation semantics of a word be to @code{execute} \G Make the compilation semantics of a word be to @code{execute}
......
...@@ -405,7 +405,7 @@ include ./recognizer.fs ...@@ -405,7 +405,7 @@ include ./recognizer.fs
: lastflags ( -- c-addr ) : lastflags ( -- c-addr )
\ the address of the flags byte in the last header \ the address of the flags byte in the last header
\ aborts if the last defined word was headerless \ 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 ; >f+c ;
: imm>comp name>int ['] execute ; : 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