diff options
Diffstat (limited to 'csc/cps-test.csc')
| -rw-r--r-- | csc/cps-test.csc | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/csc/cps-test.csc b/csc/cps-test.csc index 5283c2b..98823f0 100644 --- a/csc/cps-test.csc +++ b/csc/cps-test.csc @@ -26,6 +26,7 @@ %closure %fix %globals + %label %primitive %variable *globals* @@ -34,15 +35,13 @@ closure? fix? globals? + label? make-apply - make-atom make-branch make-call-closure make-closure make-fix - make-kargs - make-klabel - make-ktail + make-label make-primitive make-variable primitive? @@ -60,6 +59,7 @@ (cons library-ref? %library-ref) (cons variable? %variable) (cons globals? %globals) + (cons label? %label) (cons primitive? %primitive) (cons branch? %branch) (cons apply? %apply) @@ -478,13 +478,13 @@ (make-primitive 'alloc (list (make-constant 1)) (list (test-var)) (make-fix (list - (make-closure (test-var) (list (test-var) (test-var) (test-var)) + (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 2)) (list (test-var)) - (make-primitive 'poke (list (test-var) (test-var) (make-constant 0)) '() + (make-primitive 'poke (list (make-label (gensym)) (test-var) (make-constant 0)) '() (make-primitive 'poke (list (test-var) (test-var) (make-constant 1)) '() (make-primitive 'peek (list (test-var) (make-constant 0)) (list (test-var)) (make-apply (test-var) (list (test-var) (make-library-ref 'tail '(csc builtins)) (make-constant 10))))))))) |