[gforth] / gforth / except.fs  

gforth: gforth/except.fs

Diff for /gforth/except.fs between version 1.5 and 1.6

version 1.5, Thu Dec 5 19:25:23 2002 UTC version 1.6, Mon Feb 17 22:42:09 2003 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 ." uncaught exception: " .error cr              >stderr cr ." uncaught exception: " .error cr
             2 (bye)              2 (bye)
             quit  \           quit
         THEN          THEN
         rp!          rp!
         r> handler !          r> handler !

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help