[gforth] / gforth / except.fs  

gforth: gforth/except.fs

Diff for /gforth/except.fs between version 1.7 and 1.8

version 1.7, Sun Mar 9 15:16:48 2003 UTC version 1.8, Sun Nov 23 22:02:46 2003 UTC
Line 47 
Line 47 
   
 : try ( compilation  -- orig ; run-time  -- ) \ gforth  : try ( compilation  -- orig ; run-time  -- ) \ gforth
     \ !! does not work correctly for gforth-native      \ !! does not work correctly for gforth-native
     POSTPONE lit >mark POSTPONE (try) ; immediate compile-only      POSTPONE ahead here >r >mark 1 cs-roll POSTPONE then
       r> POSTPONE literal POSTPONE @ POSTPONE (try) ; immediate compile-only
   
 : (recover) ( -- )  : (recover) ( -- )
     \ normal end of try block: restore handler, forget rest      \ normal end of try block: restore handler, forget rest

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help