[gforth] / gforth / extend.fs  

gforth: gforth/extend.fs

Diff for /gforth/extend.fs between version 1.15 and 1.16

version 1.15, Fri Feb 9 17:34:09 1996 UTC version 1.16, Tue Feb 13 11:12:17 1996 UTC
Line 37 
Line 37 
 : 2Literal ( compilation w1 w2 -- ; run-time  -- w1 w2 ) \ double two-literal  : 2Literal ( compilation w1 w2 -- ; run-time  -- w1 w2 ) \ double two-literal
     swap postpone Literal  postpone Literal ; immediate restrict      swap postpone Literal  postpone Literal ; immediate restrict
   
   ' drop alias d>s ( d -- n ) \ double            d_to_s
   
 : dabs ( d1 -- d2 ) \ double  : dabs ( d1 -- d2 ) \ double
     dup 0< IF dnegate THEN ;      dup 0< IF dnegate THEN ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help