A definition can be called simply be writing the name of the definition. When the end of the definition is reached, it returns. An earlier return can be forced using
EXIT
compilation -- ; run-time nest-sys -- core "EXIT"
Don't forget to clean up the return stack and UNLOOP
any
outstanding ?DO
...LOOP
s before EXIT
ing. The
primitive compiled by EXIT
is
;s
-- gforth "semis"