recurse.st « test « Stacker « projects - llvm - Unofficial llvm GIT mirror used in EmbToolkit

summary refs log tree commit diff

path: root/projects/Stacker/test/recurse.st

blob: 310728c0712469575bbd659a5b1d04715abae001 (plain)

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