summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--share/txr/stdlib/match.tl4
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl
index afdf0c35..ea298ffd 100644
--- a/share/txr/stdlib/match.tl
+++ b/share/txr/stdlib/match.tl
@@ -36,10 +36,10 @@
(test-expr t)
(:method assignments (me)
- (mapcar (ret ^(set ,@1 ,@2)) me.vars me.var-exprs))
+ (mapcar (op list 'set) me.vars me.var-exprs))
(:method lets (me)
- (mapcar (ret ^(,@1 ,@2)) me.pure-temps me.pure-temp-exprs)))
+ (zip me.pure-temps me.pure-temp-exprs)))
(defstruct guard-disjunction ()
guard-chains