[gforth] / gforth / except.fs  

gforth: gforth/except.fs

Diff for /gforth/except.fs between version 1.3 and 1.4

version 1.3, Sat Sep 23 15:46:55 2000 UTC version 1.4, Tue Sep 24 17:57:28 2002 UTC
Line 36 
Line 36 
 : (try) ( -- )  : (try) ( -- )
     \ inline argument: address of the handler      \ inline argument: address of the handler
     r>      r>
     dup dup @ + >r \ recovery address      dup @ >r \ recovery address
     rp@ 'catch >r      rp@ 'catch >r
     sp@ >r      sp@ >r
     fp@ >r      fp@ >r

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help