| Chris Lattner | e44f1db | 2003-11-23 18:12:22 +0000 | [diff] [blame] | 1 | # |
| 2 | # OVER test | ||||
| 3 | # | ||||
| 4 | FORWARD success; | ||||
| 5 | FORWARD failure; | ||||
| 6 | : phase4 0 = IF success ELSE failure ENDIF ; | ||||
| 7 | : phase3 2 = IF phase4 ELSE failure ENDIF ; | ||||
| 8 | : phase2 1 = IF phase3 ELSE failure ENDIF ; | ||||
| 9 | : MAIN 0 2 1 OVER 2 = IF phase2 ELSE failure ENDIF ; | ||||