[gforth] / gforth / assert.fs  

gforth: gforth/assert.fs

Diff for /gforth/assert.fs between version 1.5 and 1.6

version 1.5, Tue Nov 7 18:06:32 1995 UTC version 1.6, Thu Jul 31 16:17:06 1997 UTC
Line 51 
Line 51 
 : (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?

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help