[gforth] / gforth / except.fs  

gforth: gforth/except.fs

Diff for /gforth/except.fs between version 1.23 and 1.24

version 1.23, Wed Sep 1 16:52:12 2010 UTC version 1.24, Sun Sep 5 17:58:41 2010 UTC
Line 168 
Line 168 
     then endtry ;      then endtry ;
 is catch  is catch
   
 [undefined] (throw1)  [undefined] (throw1) [if]
 : (throw1) ( ... ball frame -- ... ball )  : (throw1) ( ... ball frame -- ... ball )
     dup rp! ( ... ball frame )      dup rp! ( ... ball frame )
     cell+ dup @ lp!      cell+ dup @ lp!

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help