--- gforth/stuff.fs 1996/05/23 15:13:13 1.4 +++ gforth/stuff.fs 1998/06/17 16:55:05 1.6 @@ -18,7 +18,8 @@ \ along with this program; if not, write to the Free Software \ 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 \ a little more compiler security @@ -35,10 +36,10 @@ AUser CSP \ DMIN and DMAX : dmin ( d1 d2 -- d ) \ double - 2over 2over d< IF 2swap THEN 2drop ; + 2over 2over d> IF 2swap THEN 2drop ; : dmax ( d1 d2 -- d ) \ double - 2over 2over d> IF 2swap THEN 2drop ; + 2over 2over d< IF 2swap THEN 2drop ; \ shell commands