diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-29 17:29:13 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-29 17:29:13 -0700 |
| commit | 2fb60ef2d527b40c7f2e1b6408b2c357dd3b6932 (patch) | |
| tree | 3e02c2621b3d1721cdad88b276296c32b98ef586 /csc/cps-test.csc | |
| parent | 8fc3997b73e98416f64b78f2814711b6d1439755 (diff) | |
| download | chromatopelma-2fb60ef2d527b40c7f2e1b6408b2c357dd3b6932.tar.zst | |
Fix test failures.
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)) '() |