From 65d53c0b6be48e2e07f621b188e1be215f773638 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 3 Jun 2015 01:21:22 -0400
Subject: [PATCH] Added stubs

---
 scheme/base.sld | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index 57a1ecfc..5403f34f 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -41,6 +41,7 @@
     make-string
     vector
     vector->list
+    vector->string
     error
     raise
     raise-continuable
@@ -161,6 +162,12 @@
                            (loop (+ i 1) 
                                  (cons (vector-ref vec i) lst))))))
         (loop start '())))
+    (define (vector->string vec . opts)
+      TODO
+    )
+    (define (string->vector str . opts)
+      TODO
+    )
 
     (define (boolean=? b1 b2 . bs)
       (Cyc-obj=? boolean? b1 (cons b2 bs)))