gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.36, 1996/05/13 16:36:55	version 1.37, 1996/07/16 20:57:07
Line 569 Cond: [Char] ( "<char>" -- ) restrict	Line 569 Cond: [Char] ( "<char>" -- ) restrict
(THeader ;Resolve ! there ;Resolve cell+ !	(THeader ;Resolve ! there ;Resolve cell+ !
docol, depth T ] H ;	docol, depth T ] H ;

	: :noname ( -- colon-sys )
	T align H there docol, depth T ] H ;

Cond: EXIT ( -- ) restrict? compile ;S ;Cond	Cond: EXIT ( -- ) restrict? compile ;S ;Cond

Cond: ?EXIT ( -- ) 1 abort" CROSS: using ?exit" ;Cond	Cond: ?EXIT ( -- ) 1 abort" CROSS: using ?exit" ;Cond
Line 703 DO: ( ghost -- ) ABORT" CROSS: Don't exe	Line 706 DO: ( ghost -- ) ABORT" CROSS: Don't exe
Builder Defer	Builder Defer
by Defer :dodefer resolve	by Defer :dodefer resolve

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

\ Sturctures 23feb95py	\ Sturctures 23feb95py

>CROSS	>CROSS