[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.14 and 1.15

version 1.14, Sat Jan 2 14:03:36 1999 UTC version 1.15, Sun Jan 3 21:48:38 1999 UTC
Line 522 
Line 522 
     loop ;      loop ;
   
 DEFER DOERROR  DEFER DOERROR
   Defer dobacktrace ( -- )
   ' noop IS dobacktrace
   
 : .error-frame ( addr1 u1 n1 n2 addr2 u2 -- )  : .error-frame ( addr1 u1 n1 n2 addr2 u2 -- )
   cr error-stack @    cr error-stack @
Line 568 
Line 570 
   ELSE    ELSE
      .error       .error
   THEN    THEN
     dobacktrace
   normal-dp dpp ! ;    normal-dp dpp ! ;
   
 ' (DoError) IS DoError  ' (DoError) IS DoError

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help