diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-08-06 23:42:45 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-08-06 23:42:45 -0700 |
| commit | d7ff12fb7667e6b8098c85b545417dd0e8e1aa31 (patch) | |
| tree | 1c3548006b9810f2c08171ad17484f4907e8251f | |
| parent | 4fe172b9495e284343a63ded7a348a9dc904badb (diff) | |
| download | txr-d7ff12fb7667e6b8098c85b545417dd0e8e1aa31.tar.gz txr-d7ff12fb7667e6b8098c85b545417dd0e8e1aa31.tar.bz2 txr-d7ff12fb7667e6b8098c85b545417dd0e8e1aa31.zip | |
compiler: remove one-argument or.
* share/txr/stdlib/compiler.tl (usr:compile-file): Remove
useless one-argument use of or operator.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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) |