diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index be76f470..04a92bf5 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -532,8 +532,8 @@ (defmeth compiler comp-switch (me oreg env form) (mac-param-bind form (op idx-form cases-vec) form (let* ((ncases (len cases-vec)) - (cs (and (plusp ncases) (conses [vec 0]))) - (shared (and cs (all [vec 1..:] (op memq @1 cs)))) + (cs (and (plusp ncases) (conses [cases-vec 0]))) + (shared (and cs (all [cases-vec 1..:] (op memq @1 cs)))) (cases (if shared (let ((cs-nil ^(,*cs nil))) [mapcar ldiff cs-nil (cdr cs-nil)]) |