From 57171d0d9dfe8dafcd52a84954081e367319fa2b Mon Sep 17 00:00:00 2001 From: felix Date: Thu, 27 Sep 2018 22:07:22 +0200 Subject: [PATCH] drop unnecessary test --- lolevel.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lolevel.scm b/lolevel.scm index 5db8301f..321a656b 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))))) -- 2.16.2