gforth/assert.fs - diff

Return to assert.fs CVS log

Up to [gforth] / gforth

version 1.5, 1995/11/07 18:06:32	version 1.6, 1997/07/31 16:17:06
Line 51 variable assert-level ( -- a-addr ) \ gf	Line 51 variable assert-level ( -- a-addr ) \ gf
: (endassert) ( flag -- ) \ gforth-internal	: (endassert) ( flag -- ) \ gforth-internal
\ inline argument sourcepos	\ inline argument sourcepos
if	if
r> sourcepos drop + >r EXIT	r> sourcepos %size + >r EXIT
else	else
r> print-sourcepos ." : failed assertion"	r> print-sourcepos ." : failed assertion"
true abort" assertion failed" \ !! or use a new throw code?	true abort" assertion failed" \ !! or use a new throw code?