From 9da5680d55848a7dce46f175094432906c29a43a Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 17 Sep 2004 14:04:51 +0000
Subject: [PATCH] Fix argument checking of COPY-BYTES!: Previously, FROM was
 checked twice, and TO never.

---
 scheme/vm/prim-io.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/vm/prim-io.scm b/scheme/vm/prim-io.scm
index e6bbe59..6c65814 100644
--- a/scheme/vm/prim-io.scm
+++ b/scheme/vm/prim-io.scm
@@ -370,8 +370,8 @@
   (lambda (from from-index to to-index count)
     (cond ((and (or (vm-string? from)
 		    (code-vector? from))
-		(or (vm-string? from)
-		    (code-vector? from))
+		(or (vm-string? to)
+		    (code-vector? to))
 		(<= 0 from-index)
 		(<= 0 to-index)
 		(<= 0 count)