From 43c155414cf8425c7f38196c0f31b592de9ae15e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 6 Aug 2019 23:42:45 -0700 Subject: compiler: remove one-argument or. * share/txr/stdlib/compiler.tl (usr:compile-file): Remove useless one-argument use of or operator. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index cb3ca9de..800c16dc 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1684,7 +1684,7 @@ (when *eval* (let ((pa *package-alist*)) (sys:vm-execute-toplevel vm-desc) - (when (or (neq pa *package-alist*)) + (when (neq pa *package-alist*) (set fence t)))) (when (and *emit* (consp form)) out.(add flat-vd) -- cgit v1.2.3