Diff for /gforth/stuff.fs between versions 1.1 and 1.6

version 1.1, 1996/01/07 17:22:16 version 1.6, 1998/06/17 16:55:05
Line 18 Line 18
 \ along with this program; if not, write to the Free Software  \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
 ' require alias needs  ' require alias needs ( ... "name" -- ... ) \ gforth
   \G an alias for @code{require}; exists on other systems (e.g., Win32Forth).
 \ needs is an F-PC name. we will probably switch to 'needs' in the future  \ needs is an F-PC name. we will probably switch to 'needs' in the future
   
 \ a little more compiler security  \ a little more compiler security
Line 31  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
       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 ;
   

Removed from v.1.1  
changed lines
  Added in v.1.6


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