From 3f5a0b61978bb0227b2b4da06ecebf8407b99ddd Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 2 Jun 2015 22:59:49 -0400
Subject: [PATCH] Initial version of vector-append

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

diff --git a/scheme/base.sld b/scheme/base.sld
index 934fad7e..de03033a 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -174,7 +174,8 @@
       (list->vector
         (string->list str)))
     (define (vector-append . vecs)
-      vecs) ; TODO
+      (list->vector
+        (apply append (map vector->list vecs))))
 
     (define (vector-copy vec . opts)
       (letrec ((len (vector-length vec))