diff options
Diffstat (limited to 'csc/cps.csc')
| -rw-r--r-- | csc/cps.csc | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/csc/cps.csc b/csc/cps.csc index 81ba933..9e1721c 100644 --- a/csc/cps.csc +++ b/csc/cps.csc @@ -62,14 +62,12 @@ closure-body closure-name make-apply - make-atom make-branch make-call-closure make-closure make-fix - make-kargs - make-klabel - make-ktail + make-label + make-label make-primitive make-variable) (only (csc loop) @@ -526,7 +524,7 @@ ((% %fix functions body) (define frees (map free-vars functions)) (define fn-ptrs (loop for fun in functions - collect (make-variable (gensym)))) + collect (make-label (gensym)))) (define converted-functions (loop for fun in functions for fn-ptr in fn-ptrs for free-list in frees |