projects/Stacker/test/dup2.st

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