gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.36, 1999/11/08 22:01:08	version 1.38, 2000/04/27 08:51:33
Line 85 decimal	Line 85 decimal
\ [COMPILE] 17may93jaw	\ [COMPILE] 17may93jaw

: [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile	: [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile
comp' drop compile, ; immediate	comp' drop
	dup [ comp' exit drop ] literal = if
	execute \ EXIT has default compilation semantics, perform them
	else
	compile,
	then ; immediate

\ CONVERT 17may93jaw	\ CONVERT 17may93jaw

Line 141 decimal	Line 146 decimal
>in @	>in @
loadfile @	loadfile @
if	if
loadfile @ file-position throw	loadfile @ file-position throw #TIB @ 1+ 0 d- \ !! bug for CRLF and EOF
else	else
blk @	blk @
linestart @	linestart @
Line 163 decimal	Line 168 decimal
loadfile @ 0<>	loadfile @ 0<>
if	if
loadfile @ reposition-file throw	loadfile @ reposition-file throw
	refill 0= -36 and throw \ should never throw
else	else
linestart !	linestart !
blk !	blk !