Return to stuff.fs CVS log | Up to [gforth] / gforth |
version 1.1, 1996/01/07 17:22:16 | version 1.2, 1996/02/09 17:34:12 |
---|---|
Line 31 AUser CSP | Line 31 AUser CSP |
: ?CSP ( -- ) | : ?CSP ( -- ) |
sp@ csp @ <> -22 and throw ; | sp@ csp @ <> -22 and throw ; |
: dmin ( d1 d2 -- d ) \ double | |
2over 2over d< IF 2swap THEN 2drop ; | |
: dmax ( d1 d2 -- d ) \ double | |
2over 2over d> IF 2swap THEN 2drop ; | |
' drop alias d>s ( d -- n ) \ double d_to_s |