provide cons$ as word, but don't use it, as call-native overhead is h…

…igher
devyn · Aug 10, 2023 · 503b569 · 503b569
1 parent db03f50
commit 503b569
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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