diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-06-24 06:59:13 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-06-24 06:59:13 -0700 |
| commit | e4616095db06980eb3f9e80f6e9df60dfc46dfa9 (patch) | |
| tree | c9d4ae960d0f6a6a013afde2477737c395fa8cf0 | |
| parent | 2e0159fe467ac3ea9b89394ff2e8be77263a01d2 (diff) | |
| download | txr-e4616095db06980eb3f9e80f6e9df60dfc46dfa9.tar.gz txr-e4616095db06980eb3f9e80f6e9df60dfc46dfa9.tar.bz2 txr-e4616095db06980eb3f9e80f6e9df60dfc46dfa9.zip | |
matcher: remove unused gensym.
* share/txr/stdlib/match.tl (if-match): match-p gensym is not
used; remove it.
| -rw-r--r-- | share/txr/stdlib/match.tl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl index dca0ebf9..baa65f0d 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -634,7 +634,6 @@ (defmacro if-match (:form *match-form* :env e pat obj then : else) (let ((cm (compile-match pat : (get-var-list e))) - (match-p (gensym "match-p-")) (result (gensym "result-"))) ^(alet ((,cm.obj-var ,obj)) (let* (,result ,*cm.(get-vars)) |