gforth/chains.fs - diff

Return to chains.fs CVS log

Up to [gforth] / gforth

version 1.1, 1997/07/06 14:15:10	version 1.2, 1998/07/05 20:49:58
Line 16 You can add a word to the list with "' m	Line 16 You can add a word to the list with "' m
execute all the code with "foo8 chainperform".	execute all the code with "foo8 chainperform".
[THEN]	[THEN]

	has? cross
	[IF] e? compiler
	[ELSE] true
	[THEN]

	[IF] \ only needed with compiler

[IFUNDEF] linked	[IFUNDEF] linked
: linked here over @ a, swap ! ;	: linked here over @ a, swap ! ;
[THEN]	[THEN]
Line 25 execute all the code with "foo8 chainper	Line 32 execute all the code with "foo8 chainper
: chained ( xt list -- ) \ gforth	: chained ( xt list -- ) \ gforth
linked , ;	linked , ;

	[THEN]

: chainperform ( list -- ) \ gforth	: chainperform ( list -- ) \ gforth
BEGIN @ dup WHILE dup cell+ perform REPEAT drop ;	BEGIN @ dup WHILE dup cell+ perform REPEAT drop ;