gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.37, 1996/07/16 20:57:07	version 1.38, 1996/08/21 14:58:38
Line 278 Variable last-ghost	Line 278 Variable last-ghost

: gfind ( string -- ghost true/1 / string false )	: gfind ( string -- ghost true/1 / string false )
\ searches for string in word-list ghosts	\ searches for string in word-list ghosts
\ !! wouldn't it be simpler to just use search-wordlist ? ae
dup count [ ' ghosts >body ] ALiteral search-wordlist	dup count [ ' ghosts >body ] ALiteral search-wordlist
dup IF >r >body nip r> THEN ;	dup IF >r >body nip r> THEN ;

VARIABLE Already	VARIABLE Already

Line 708 by Defer :dodefer resolve	Line 707 by Defer :dodefer resolve

Build: ( inter comp -- ) swap T immediate A, A, H ;	Build: ( inter comp -- ) swap T immediate A, A, H ;
DO: ( ghost -- ) ABORT" CROSS: Don't execute" ;DO	DO: ( ghost -- ) ABORT" CROSS: Don't execute" ;DO
Builder special:	Builder interpret/compile:

\ Sturctures 23feb95py	\ Sturctures 23feb95py