gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.4, 1996/05/23 15:13:13	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 35 AUser CSP	Line 36 AUser CSP
\ DMIN and DMAX	\ 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	\ shell commands