gforth/kernel/quotes.fs - diff

Return to quotes.fs CVS log

Up to [gforth] / gforth / kernel

version 1.4, 2001/05/04 07:41:03	version 1.5, 2001/06/16 22:53:38
Line 25 require ./vars.fs	Line 25 require ./vars.fs
\ create s"-buffer /line chars allot	\ create s"-buffer /line chars allot
has? compiler 0=	has? compiler 0=
[IF] : s" [ELSE] :noname [THEN]	[IF] : s" [ELSE] :noname [THEN]
[char] " parse save-mem ;	[char] " parse
	[ has? OS [IF] ]
	save-mem
	[ [THEN] ]
	;
\ /line min >r s"-buffer r@ cmove	\ /line min >r s"-buffer r@ cmove
\ s"-buffer r> ;	\ s"-buffer r> ;
has? compiler [IF]	has? compiler [IF]