From e4616095db06980eb3f9e80f6e9df60dfc46dfa9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 24 Jun 2021 06:59:13 -0700
Subject: matcher: remove unused gensym.

* share/txr/stdlib/match.tl (if-match): match-p gensym is not
used; remove it.
---
 share/txr/stdlib/match.tl | 1 -
 1 file changed, 1 deletion(-)

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))
-- 
cgit v1.2.3