diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-09-15 11:49:44 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-09-15 11:49:44 -0700 |
| commit | e29621f24a178c4990695af0acf7ae8d02335d85 (patch) | |
| tree | db88636e17fff8a6d12450b1f1ff041519803961 | |
| parent | 1698241d4b4b753dd5b25f79754804a0a668bb60 (diff) | |
| download | txr-e29621f24a178c4990695af0acf7ae8d02335d85.tar.gz txr-e29621f24a178c4990695af0acf7ae8d02335d85.tar.bz2 txr-e29621f24a178c4990695af0acf7ae8d02335d85.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.tl | 2 |
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)) |