[gforth] / gforth / Attic / exceptions.fs  

gforth: gforth/Attic/exceptions.fs

Diff for /gforth/Attic/exceptions.fs between version 1.6 and 1.7

version 1.6, Thu Dec 30 20:43:25 1999 UTC version 1.7, Thu May 4 07:45:26 2000 UTC
Line 81 
Line 81 
         [ here forthstart 9 cells + ! ]          [ here forthstart 9 cells + ! ]
         store-backtrace          store-backtrace
         handler @ ?dup-0=-IF          handler @ ?dup-0=-IF
             cr .error cr              cr ." uncaught exception: " .error cr
             2 (bye)              2 (bye)
             quit              quit
         THEN          THEN

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help