[gforth] / gforth / except.fs  

gforth: gforth/except.fs

Diff for /gforth/except.fs between version 1.10 and 1.11

version 1.10, Fri May 26 21:18:45 2006 UTC version 1.11, Sun Oct 8 11:30:56 2006 UTC
Line 139 
Line 139 
         rdrop 'throw r> perform          rdrop 'throw r> perform
     THEN ;      THEN ;
 is throw  is throw
 [IFDEF] throw>error  [IFDEF] rethrow
 :noname ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception  :noname ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception
     ?DUP IF      ?DUP IF
         handler @ ?dup-0=-IF          handler @ ?dup-0=-IF
Line 154 
Line 154 
         r> swap >r sp! drop r>          r> swap >r sp! drop r>
         rdrop 'throw r> perform          rdrop 'throw r> perform
     THEN ;      THEN ;
 is throw>error  is rethrow
 [THEN]  [THEN]

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help