From 943dd1aad5f6c9f65c88fb40417e3aa5ace928a9 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 22 Mar 2016 20:07:37 -0400
Subject: [PATCH] Use new vector function

---
 scheme/cyclone/cgen.sld | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 189ace6e..ace47525 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -524,7 +524,7 @@
      ((eq? p 'integer->char) "Cyc_integer2char")
      ((eq? p 'string->number)"Cyc_string2number2_")
      ((eq? p 'list->string)  "Cyc_list2string")
-     ((eq? p 'make-vector)   "Cyc_make_vector")
+     ((eq? p 'make-vector)   "Cyc_make_vector2")
      ((eq? p 'list->vector)  "Cyc_list2vector")
      ((eq? p 'vector-length) "Cyc_vector_length")
      ((eq? p 'vector-ref)    "Cyc_vector_ref")
@@ -703,6 +703,7 @@
     (and (prim? exp)
          (member exp '(error Cyc-write Cyc-display 
                        string->number string-append 
+                       make-vector
                        + - * /))))
 
 ;; Does primitive allocate an object?