From 745d6b8e16c7f276f479c18d97200e44d16aafc9 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sun, 24 Jul 2022 19:08:49 -0700
Subject: Start codegen.

---
 csc/cps.csc | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'csc/cps.csc')

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
-- 
cgit v1.3.1