From 2c5d9eeb8d3d2664a2148db167fcabb25afe4982 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 20 Dec 2020 22:46:27 -0500
Subject: [PATCH] Added record-marker2

---
 scheme/base.sld | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index 4c46dae6..d8510c0f 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -29,6 +29,7 @@
     slot-ref
     slot-set!
     type-slot-offset
+    record-marker2
     ;; END records
     receive
     abs
@@ -1512,6 +1513,11 @@
     " return_closcall1(data, k, Cyc_VOID); "
     "(void *data, object ptr)"
     " return Cyc_VOID;")
+  (define-c record-marker2
+    "(void *data, int argc, closure _, object k)"
+    " return_closcall1(data, k, Cyc_RECORD_MARKER); "
+    "(void *data, object ptr)"
+    " return Cyc_RECORD_MARKER;")
   (define-c input-port?
     "(void *data, int argc, closure _, object k, object port)"
     " port_type *p = (port_type *)port;