summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-09-15 11:49:44 -0700
committerKaz Kylheku <kaz@kylheku.com>2019-09-15 11:49:44 -0700
commit4a272f52089231d57e76bbe2c1817e501f7f9367 (patch)
treedb88636e17fff8a6d12450b1f1ff041519803961
parent350cd2e935aafb949892384db1451accf2d398c1 (diff)
downloadtxr-4a272f52089231d57e76bbe2c1817e501f7f9367.tar.gz
txr-4a272f52089231d57e76bbe2c1817e501f7f9367.tar.bz2
txr-4a272f52089231d57e76bbe2c1817e501f7f9367.zip
op: eliminate useless quasiquote.
* share/txr/stdlib/op.tl (sys:op-expand): Replace ^(,*args) with just args.
-rw-r--r--share/txr/stdlib/op.tl2
1 files changed, 1 insertions, 1 deletions
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))