Return to stuff.fs CVS log | Up to [gforth] / gforth |
version 1.2, 1996/02/09 17:34:12 | version 1.3, 1996/02/13 11:12:19 |
---|---|
Line 37 AUser CSP | Line 37 AUser CSP |
: dmax ( d1 d2 -- d ) \ double | : dmax ( d1 d2 -- d ) \ double |
2over 2over d> IF 2swap THEN 2drop ; | 2over 2over d> IF 2swap THEN 2drop ; |
' drop alias d>s ( d -- n ) \ double d_to_s |