[gforth] / gforth / stuff.fs  

gforth: gforth/stuff.fs

Diff for /gforth/stuff.fs between version 1.1 and 1.2

version 1.1, Sun Jan 7 17:22:16 1996 UTC version 1.2, Fri Feb 9 17:34:12 1996 UTC
Line 31 
Line 31 
   
 : ?CSP ( -- )  : ?CSP ( -- )
     sp@ csp @ <> -22 and throw ;      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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help