From 5f42a06601f93a1bdb33c521691bc852e8d6b8e1 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 26 Nov 2019 16:03:06 -0500
Subject: [PATCH] More unsafe prims

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

diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index 87164ad2..ecaa0244 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -573,8 +573,14 @@
          ((eq? p 'Cyc-write-char)        "Cyc_write_char")
          ((eq? p 'Cyc-unsafe-car)        "car")
          ((eq? p 'Cyc-unsafe-cdr)        "cdr")
-         ((eq? p 'car)           "Cyc_car")
-         ((eq? p 'cdr)           "Cyc_cdr")
+         ((eq? p 'car)
+          (if emit-unsafe
+              "car"
+              "Cyc_car"))
+         ((eq? p 'cdr)
+          (if emit-unsafe
+              "cdr"
+              "Cyc_cdr"))
          ((eq? p 'caar)          "Cyc_caar")
          ((eq? p 'cadr)          "Cyc_cadr")
          ((eq? p 'cdar)          "Cyc_cdar")