![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to stuff.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 |