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? |