From e11733bc09dcb23521b3b91b46c2ac3447c1d210 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 9 Feb 2021 06:56:38 -0800 Subject: matcher: match-guard: use op list, and zip. * share/txr/stdlib/match.tl (match-guard assignments): Use simpler op expression to generate a function that produces set assignments. (match-guard lets): Use zip function instead of mapcar with ret and quasiquote. --- share/txr/stdlib/match.tl | 4 ++-- 1 file 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 -- cgit v1.2.3