From b218aacf654f2291e4ca39b987abf9ab18ba8fc1 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 22 Dec 2020 17:03:37 -0500
Subject: [PATCH] Clean up cruft

---
 scheme/base.sld         | 8 ++++----
 scheme/cyclone/cgen.sld | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 66c80a9e..62b0be5c 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -29,7 +29,7 @@
     slot-ref
     slot-set!
     type-slot-offset
-    record-marker2
+    make-record-marker
     ;; END records
     receive
     abs
@@ -1513,7 +1513,7 @@
     " return_closcall1(data, k, Cyc_VOID); "
     "(void *data, object ptr)"
     " return Cyc_VOID;")
-  (define-c record-marker2
+  (define-c make-record-marker
     "(void *data, int argc, closure _, object k)"
     " return_closcall1(data, k, Cyc_RECORD_MARKER); "
     "(void *data, object ptr)"
@@ -1973,7 +1973,7 @@
          (guard-aux reraise clause1 clause2 ...)))))
 
 ;; Record-type definitions
-(define record-marker (record-marker2))
+(define record-marker (make-record-marker))
 (define (register-simple-type name parent field-tags)
   (vector record-marker name field-tags))
 (define (make-type-predicate pred name)
@@ -2105,7 +2105,7 @@
          (,_define ,make
             (,_lambda ,make-fields
               (,(rename 'vector)
-               (record-marker2)
+               (make-record-marker)
                (quote ,name)
                (,(rename 'vector)
                 ,@make-fields))))
diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 4fd6372c..3fffa9a0 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -627,7 +627,7 @@
      (c:code "NULL"))
     ((eq? (void) exp) ;; Poor man's (void?)
      (c:code "Cyc_VOID"))
-    ((eq? (record-marker2) exp)
+    ((eq? (make-record-marker) exp)
      (c:code "Cyc_RECORD_MARKER"))
     ((pair? exp)
      (c-compile-scalars exp use-alloca immutable))