projects
/
oota-llvm.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
8e3dfd0f2f31535a12bdabecb6f502670e48be33
[oota-llvm.git]
/
projects
/
Stacker
/
test
/
select.st
1
#
2
# SELECT test
3
#
4
FORWARD success;
5
FORWARD failure;
6
: try_99 99 = IF success ELSE failure ENDIF ;
7
: MAIN 99 10 9 8 7 6 5 4 3 2 1 10 5 SELECT 5 = IF try_99 ELSE failure ENDIF ;