gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.114, 2012/02/09 17:27:37	version 1.115, 2012/03/09 20:34:46
Line 128 variable next-prelude	Line 128 variable next-prelude
next-prelude off	next-prelude off
cfalign ;	cfalign ;

	defer record-name ( -- ) ' noop is record-name
	\ record next name in tags file
defer (header)	defer (header)
defer header ( -- ) \ gforth	defer header ( -- ) \ gforth
' (header) IS header	' (header) IS header
Line 544 interpret/compile: DOES> ( compilation	Line 546 interpret/compile: DOES> ( compilation

: <IS> ( "name" xt -- ) \ gforth	: <IS> ( "name" xt -- ) \ gforth
\g Changes the @code{defer}red word @var{name} to execute @var{xt}.	\g Changes the @code{defer}red word @var{name} to execute @var{xt}.
' defer! ;	record-name ' defer! ;

: [IS] ( compilation "name" -- ; run-time xt -- ) \ gforth bracket-is	: [IS] ( compilation "name" -- ; run-time xt -- ) \ gforth bracket-is
\g At run-time, changes the @code{defer}red word @var{name} to	\g At run-time, changes the @code{defer}red word @var{name} to
\g execute @var{xt}.	\g execute @var{xt}.
' postpone ALiteral postpone defer! ; immediate restrict	record-name ' postpone ALiteral postpone defer! ; immediate restrict

' <IS>	' <IS>
' [IS]	' [IS]