Commit 57c15d14 authored Sep 09, 2019 by Anton Ertl

error message adjusted

parent 89f7b37e

kernel-ec/comp.fs

+1 −1

Original line number	Diff line number	Diff line
		@@ -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}

kernel/comp.fs

+1 −1

Original line number	Diff line number	Diff line
		@@ -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 ;