From 4a272f52089231d57e76bbe2c1817e501f7f9367 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 15 Sep 2019 11:49:44 -0700 Subject: op: eliminate useless quasiquote. * share/txr/stdlib/op.tl (sys:op-expand): Replace ^(,*args) with just args. --- share/txr/stdlib/op.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/op.tl b/share/txr/stdlib/op.tl index 8ff023be..03828d22 100644 --- a/share/txr/stdlib/op.tl +++ b/share/txr/stdlib/op.tl @@ -77,7 +77,7 @@ (let* ((ctx (make-struct 'sys:op-ctx ^(form ,f))) (sys:*op-ctx* ctx) (sym (car f)) - (syntax-0 (if (eq sym 'do) ^(,*args) ^[,*args])) + (syntax-0 (if (eq sym 'do) args ^[,*args])) (syntax-1 (sys:op-alpha-rename f e syntax-0 nil)) (syntax-2 (sys:op-alpha-rename f e syntax-1 t)) (metas (slot ctx 'gens)) -- cgit v1.2.3