gforth/except.fs - diff

Return to except.fs CVS log

Up to [gforth] / gforth

version 1.23, 2010/09/01 16:52:12	version 1.25, 2010/12/31 18:09:02
Line 1	Line 1
\ catch, throw, etc.	\ catch, throw, etc.

\ Copyright (C) 1999,2000,2003,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 1999,2000,2003,2006,2007,2010 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 168 Variable first-throw	Line 168 Variable first-throw
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!