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

version 1.15, 1996/02/09 17:34:09 version 1.16, 1996/02/13 11:12:17
Line 37  decimal Line 37  decimal
 : 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 ;
   

Removed from v.1.15  
changed lines
  Added in v.1.16


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>