Diff for /gforth/except.fs between versions 1.18 and 1.20

version 1.18, 2007/02/19 00:08:20 version 1.20, 2007/12/31 17:34:58
Line 1 Line 1
 \ catch, throw, etc.  \ catch, throw, etc.
   
 \ Copyright (C) 1999,2000,2003,2006 Free Software Foundation, Inc.  \ Copyright (C) 1999,2000,2003,2006,2007 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 155  is catch Line 155  is catch
             2 (bye)              2 (bye)
 \           quit  \           quit
         THEN          THEN
         dup rp!          dup rp! ( ... ball frame )
         rdrop          cell+ dup @ lp!
         r> lp!          cell+ dup @ fp!
         r> fp!          cell+ dup @ ( ... ball addr sp ) -rot 2>r sp! drop 2r>
         r> -rot 2>r sp! drop 2r>          cell+ @ perform
         r@ swap rp! perform  
     THEN ;      THEN ;
 is throw  is throw

Removed from v.1.18  
changed lines
  Added in v.1.20


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>