From 503b569333b88aa2b271eb7a4ff5f1cf5c1b7a98 Mon Sep 17 00:00:00 2001
From: Devyn Cairns <devyn.cairns@gmail.com>
Date: Wed, 9 Aug 2023 17:24:21 -0700
Subject: [PATCH] provide cons$ as word, but don't use it, as call-native
 overhead is higher

---
 stage1/words.s | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/stage1/words.s b/stage1/words.s
index b7e9571..37111a5 100644
--- a/stage1/words.s
+++ b/stage1/words.s
@@ -134,6 +134,12 @@ INITIAL_WORDS:
         .ascii "cdr$"
         .balign 8
 
+        .quad cons
+        .2byte 5
+        .byte LISP_OBJECT_TYPE_INTEGER
+        .ascii "cons$"
+        .balign 8
+
         .quad uncons
         .2byte 7
         .byte LISP_OBJECT_TYPE_INTEGER