diff options
Diffstat (limited to 'csc/cps-test.csc')
| -rw-r--r-- | csc/cps-test.csc | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/csc/cps-test.csc b/csc/cps-test.csc index 6439d78..156ba60 100644 --- a/csc/cps-test.csc +++ b/csc/cps-test.csc @@ -477,14 +477,13 @@ (define ret-sym (gensym)) (define x-sym (gensym)) (assert-equal - (make-primitive 'alloc (list (make-constant 1)) (list (test-var)) - (make-fix - (list - (make-closure (make-label (gensym)) (list (test-var) (test-var) (test-var)) - (make-primitive 'peek (list (test-var) (make-constant 0)) (list (test-var)) - (make-primitive 'poke (list (test-var) (test-var) (make-constant 0)) '() - (make-primitive 'peek (list (test-var) (make-constant 0)) (list (test-var)) - (make-apply (test-var) (list (test-var) (make-constant #f)))))))) + (make-fix + (list (make-closure (make-label (gensym)) (list (test-var) (test-var) (test-var)) + (make-primitive 'peek (list (test-var) (make-constant 0)) (list (test-var)) + (make-primitive 'poke (list (test-var) (test-var) (make-constant 0)) '() + (make-primitive 'peek (list (test-var) (make-constant 0)) (list (test-var)) + (make-apply (test-var) (list (test-var) (make-constant #f)))))))) + (make-primitive 'alloc (list (make-constant 1)) (list (test-var)) (make-primitive 'alloc (list (make-constant 2)) (list (test-var)) (make-primitive 'poke (list (make-label (gensym)) (test-var) (make-constant 0)) '() (make-primitive 'poke (list (test-var) (test-var) (make-constant 1)) '() |