diff options
Diffstat (limited to 'test-suite/standalone/sassy/tests/prims/exp-k3.scm')
-rw-r--r-- | test-suite/standalone/sassy/tests/prims/exp-k3.scm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/test-suite/standalone/sassy/tests/prims/exp-k3.scm b/test-suite/standalone/sassy/tests/prims/exp-k3.scm new file mode 100644 index 000000000..bd4ce3628 --- /dev/null +++ b/test-suite/standalone/sassy/tests/prims/exp-k3.scm @@ -0,0 +1,24 @@ +(macro begin-k (lambda body-tail + (if (null? (cdr body-tail)) + (car body-tail) + `(with-win (begin-k ,@(cdr body-tail)) + (with-lose $win + ,(car body-tail)))))) + + +(text + (begin-k (nop) + (alt (nop) + (begin-k (nop) + (inv z!)) + (nop)) + (nop))) + +; 00000000 90 nop +; 00000001 90 nop +; 00000002 EB04 jmp short 0x8 +; 00000004 90 nop +; 00000005 7501 jnz 0x8 +; 00000007 90 nop +; 00000008 90 nop + |