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 ! |