From 27bacda44521608e4571a539f5293bcc6ef1f780 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 9 May 2017 15:33:56 +0000
Subject: [PATCH] Use car instead of cell_get

car is much faster since there is no function overhead.
---
 scheme/cyclone/primitives.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index 65d482dc..bf0749a2 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -593,7 +593,7 @@
          ((eq? p 'symbol?)       "Cyc_is_symbol")
          ((eq? p 'cons)          "make_pair")
          ((eq? p 'cell)          "make_cell")
-         ((eq? p 'cell-get)      "cell_get")
+         ((eq? p 'cell-get)      "car") ;; Unsafe as cell gets added by compiler
          ((eq? p 'set-cell!)     "Cyc_set_cell")
          ((eq? p 'set-global!)   "global_set")
          (else