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