projects/Stacker/test/dup.st

   1 #
   2 # DUP test
   3 #
   4 FORWARD success;
   5 FORWARD failure;
   6 : phase3 1 = IF success ELSE failure ENDIF ;
   7 : phase2 2 = IF phase3 ELSE failure ENDIF ;
   8 : MAIN 1 2 DUP 2 = IF phase2 ELSE failure ENDIF ;