diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-24 19:08:49 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-24 19:08:49 -0700 |
| commit | 745d6b8e16c7f276f479c18d97200e44d16aafc9 (patch) | |
| tree | 715c8dc403d9779c2f6a4fc153221401dff144cc /csc/cps.csc | |
| parent | 51a1e71c269f298fba18b620c68a0b1b15d236e9 (diff) | |
| download | chromatopelma-745d6b8e16c7f276f479c18d97200e44d16aafc9.tar.zst | |
Start codegen.
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 |