llvm-6502/projects/Stacker/test/recurse.st

8 lines
114 B
Smalltalk
Raw Normal View History

#
# RECURSE test
#
FORWARD success;
FORWARD failure;
: recurser 100 = IF 1 + RECURSE;
: MAIN 1 recurser success ;