From 112a51bd10e1ec914b2fa8feb90ffa8d5b7f18fc Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Thu, 26 Oct 1995 20:29:22 +0000
Subject: [PATCH] Added copy-vector.

---
 scsh/utilities.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/scsh/utilities.scm b/scsh/utilities.scm
index a5522dd..df84af4 100644
--- a/scsh/utilities.scm
+++ b/scsh/utilities.scm
@@ -102,6 +102,13 @@
 	(and (pred (vector-ref v i))
 	     (lp (- i 1))))))
 
+(define (copy-vector v)
+  (let* ((len (vector-length v))
+	 (ans (make-vector len)))
+    (do ((i (- len 1) (- i 1)))
+	((< i 0) ans)
+      (vector-set! ans i (vector-ref v i)))))
+
 ;;; These two utility funs are for parsing optional last arguments,
 ;;; e.g. the PORT arg in
 ;;;    (write-string string [port])