RosettaCodeData/Task/Program-termination/Forth/program-termination.fth

5 lines
137 B
Forth

debug @
if QUIT \ quit back to the interpreter
else BYE \ exit forth environment completely (e.g. end of a Forth shell script)
then