version 1.15, 1996/02/09 17:34:09
|
version 1.16, 1996/02/13 11:12:17
|
Line 37 decimal
|
Line 37 decimal
|
: 2Literal ( compilation w1 w2 -- ; run-time -- w1 w2 ) \ double two-literal |
: 2Literal ( compilation w1 w2 -- ; run-time -- w1 w2 ) \ double two-literal |
swap postpone Literal postpone Literal ; immediate restrict |
swap postpone Literal postpone Literal ; immediate restrict |
|
|
|
' drop alias d>s ( d -- n ) \ double d_to_s |
|
|
: dabs ( d1 -- d2 ) \ double |
: dabs ( d1 -- d2 ) \ double |
dup 0< IF dnegate THEN ; |
dup 0< IF dnegate THEN ; |
|
|