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.39, 2000/08/08 12:37:05
Line 42 decimal	Line 42 decimal

' drop alias d>s ( d -- n ) \ double d_to_s	' drop alias d>s ( d -- n ) \ double d_to_s

: m*/ ( d1 n2 u3 -- dqout ) \ double m-star-slash	: m*/ ( d1 n2 u3 -- dquot ) \ double m-star-slash
>r s>d >r abs -rot	>r s>d >r abs -rot
s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*	s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*
swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod nip swap	swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod nip swap
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 !