From 123157a28313954d78219f7b3e18c1e7f9d9aeef Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Thu, 28 Jul 2022 15:41:05 -0700
Subject: Use a better hashing scheme for identifiers.

---
 csc/macros.csc | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'csc')

diff --git a/csc/macros.csc b/csc/macros.csc
index 9afeea9..859f72d 100644
--- a/csc/macros.csc
+++ b/csc/macros.csc
@@ -49,7 +49,6 @@
             loop
             return)
           (only (csc match) match)
-          (only (csc strings) join)
           (only (csc vec)
             vec
             vec-append
@@ -366,8 +365,7 @@
 
 
     (define (identifier-uuid i)
-      ; Join marks by ( because symbols are unlikely to have ( in the name.
-      (sprintf "{}({}" (apply join "(" (map number->string (marks i))) (identifier-name i)))
+      (sprintf "{}" (list (identifier-name i) (marks i))))
 
 
     (define (hash-identifier i)
-- 
cgit v1.3.1