From b325101fcbf99716316afa287eb52669d19531de Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 29 Jul 2016 02:42:35 -0400
Subject: [PATCH] Use safe car/cdr

---
 scheme/cyclone/primitives.sld | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index 9013f084..54f1a1d7 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -428,8 +428,8 @@
          ((eq? p 'Cyc-display)           "Cyc_display_va")
          ((eq? p 'Cyc-write)             "Cyc_write_va")
          ((eq? p 'Cyc-write-char)        "Cyc_write_char")
-         ((eq? p 'car)           "car")
-         ((eq? p 'cdr)           "cdr")
+         ((eq? p 'car)           "Cyc_car")
+         ((eq? p 'cdr)           "Cyc_cdr")
          ((eq? p 'caar)          "caar")
          ((eq? p 'cadr)          "cadr")
          ((eq? p 'cdar)          "cdar")
@@ -536,6 +536,8 @@
         >=
         <=
         apply
+        car
+        cdr
         Cyc-default-exception-handler
         Cyc-current-exception-handler
         Cyc-end-thread!