~ chicken-core (chicken-5) a114d588af911c56502b125c2bd354c93e16bf8d

commit a114d588af911c56502b125c2bd354c93e16bf8d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Sep 27 22:07:22 2018 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Sep 29 14:52:20 2018 +1200

    Drop unnecessary test in `object-copy'
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/lolevel.scm b/lolevel.scm
index 5db8301f..f5cbffb4 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -427,7 +427,7 @@ EOF
 	   (let* ((n (##sys#size x))
 		  (words (if (##core#inline "C_byteblockp" x) (##core#inline "C_words" n) n))
 		  (y (##core#inline "C_copy_block" x (##sys#make-vector words))))
-	     (unless (or (##core#inline "C_byteblockp" x) (symbol? x))
+	     (unless (##core#inline "C_byteblockp" x)
 	       (do ((i (if (##core#inline "C_specialp" x) 1 0) (fx+ i 1)))
 		   ((fx>= i n))
 		 (##sys#setslot y i (copy (##sys#slot y i)))))