Hi!
A trivial change, fixing an unnecessary test reported by the
scrutinizer during build.
felix
From 57171d0d9dfe8dafcd52a84954081e367319fa2b Mon Sep 17 00:00:00 2001
From: felix <fe...@call-with-current-continuation.org>
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
_______________________________________________
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
