From f75a2aae745a49bab4cfc8ee0ea0bf7af4243a34 Mon Sep 17 00:00:00 2001
From: ESL <der.magen@hotmail.com>
Date: Thu, 7 Nov 2024 22:13:14 -0500
Subject: [PATCH] =?UTF-8?q?free-id=3D=3F=20fix=20for=20unbound=20ids?=

---
 pre/t.scm | 2 +-
 t.c       | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/pre/t.scm b/pre/t.scm
index b56649d..5eed52b 100644
--- a/pre/t.scm
+++ b/pre/t.scm
@@ -386,7 +386,7 @@
   (let ([p1 (env1 id1 'peek)] [p2 (env2 id2 'peek)])
     (and p1 p2 ; both envs should be supported by name registries
       (if (and (name-registry? p1) (name-registry? p2))
-          (and (eq? p1 p2) (eq? id1 id2)) ; would end w/same loc if alloced
+          (and (eq? p1 p2) (eq? (id->sym id1) (id->sym id2))) ; would end w/same loc if alloced
           (eq? p1 p2))))) ; nrs and locs are distinct, so this means "same loc" 
 
 ; xpand receives Scheme s-expressions and returns either Core Scheme <core> form
diff --git a/t.c b/t.c
index af4f9b3..ac96a4c 100644
--- a/t.c
+++ b/t.c
@@ -249,8 +249,8 @@ char *t_code[] = {
 
   "P", "free-id=?",
   "%4${'(y4:peek),.5,.7[02},${'(y4:peek),.4,.6[02},.0?{.1?{${.2,@(y14:nam"
-  "e-registry?)[01}?{${.3,@(y14:name-registry?)[01}}{f}?{.1,.1q?{.4,.3q]6"
-  "}f]6}.1,.1q]6}f]6}f]6",
+  "e-registry?)[01}?{${.3,@(y14:name-registry?)[01}}{f}?{.1,.1q?{${.6,@(y"
+  "7:id->sym)[01},${.5,@(y7:id->sym)[01}q]6}f]6}.1,.1q]6}f]6}f]6",
 
   "P", "xpand",
   "%3${.3,@(y3:id?)[01}?{${.4,.4,@(y9:xpand-ref)[02},.1?{.0]4}.0U0?{.0U7,"