Return to stuff.fs CVS log | Up to [gforth] / gforth |
version 1.1, 1996/01/07 17:22:16 | version 1.4, 1996/05/23 15:13:13 |
---|---|
Line 31 AUser CSP | Line 31 AUser CSP |
: ?CSP ( -- ) | : ?CSP ( -- ) |
sp@ csp @ <> -22 and throw ; | sp@ csp @ <> -22 and throw ; |
\ DMIN and DMAX | |
: dmin ( d1 d2 -- d ) \ double | |
2over 2over d< IF 2swap THEN 2drop ; | |
: dmax ( d1 d2 -- d ) \ double | |
2over 2over d> IF 2swap THEN 2drop ; | |
\ shell commands | |
0 Value $? | |
: system ( addr u -- ) \ gforth | |
(system) throw TO $? ; | |
: sh ( "..." -- ) \ gforth | |
'# parse cr system ; | |