\ 4tH library - BREAK? - Copyright 2011 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

[UNDEFINED] break? [IF]                ( c f1 a1 a2 -- f2)
: break? ?do over i c@ = if 0= leave then loop nip ;
[THEN]