Sign in
llvm
/
llvm
/
refs/heads/release_16
/
.
/
projects
/
Stacker
/
test
/
while.st
blob: 7798f12e1f25efe3ea957e4d0292886f715e3f5c [
file
] [
log
] [
blame
]
#
# WHILE test
#
FORWARD success
;
FORWARD failure
;
:
body
"."
>
s DROP
--
;
:
do_while WHILE body
END
;
:
MAIN
20
do_while
0
=
IF success ELSE failure ENDIF
;