projects/Stacker/test/while.st

   1 #
   2 # WHILE test
   3 #
   4 FORWARD success;
   5 FORWARD failure;
   6 : body "." >s DROP -- ;
   7 : do_while WHILE body END  ;
   8 : MAIN 20 do_while 0 = IF success ELSE failure ENDIF;