--- gforth/stuff.fs	1996/01/07 17:22:16	1.1
+++ gforth/stuff.fs	1996/02/09 17:34:12	1.2
@@ -31,3 +31,11 @@ AUser CSP
 
 : ?CSP ( -- )
     sp@ csp @ <> -22 and throw ;
+
+: dmin ( d1 d2 -- d ) \ double
+    2over 2over d< IF  2swap  THEN 2drop ;
+
+: dmax ( d1 d2 -- d ) \ double
+    2over 2over d> IF  2swap  THEN 2drop ;
+
+' drop alias d>s ( d -- n ) \ double		d_to_s