[BACK]Return to stuff.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/stuff.fs between versions 1.3 and 1.4

version 1.3, 1996/02/13 11:12:19 version 1.4, 1996/05/23 15:13:13
Line 32  AUser CSP Line 32  AUser CSP
 : ?CSP ( -- )  : ?CSP ( -- )
     sp@ csp @ <> -22 and throw ;      sp@ csp @ <> -22 and throw ;
   
   \ DMIN and DMAX
   
 : dmin ( d1 d2 -- d ) \ double  : dmin ( d1 d2 -- d ) \ double
     2over 2over d< IF  2swap  THEN 2drop ;      2over 2over d< IF  2swap  THEN 2drop ;
   
 : dmax ( d1 d2 -- d ) \ double  : dmax ( d1 d2 -- d ) \ double
     2over 2over d> IF  2swap  THEN 2drop ;      2over 2over d> IF  2swap  THEN 2drop ;
   
   \ shell commands
   
   0 Value $?
   
   : system ( addr u -- ) \ gforth
       (system) throw TO $? ;
   : sh ( "..." -- ) \ gforth
       '# parse cr system ;
   
Removed from v.1.3  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>