diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 15:41:05 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 15:41:05 -0700 |
| commit | 123157a28313954d78219f7b3e18c1e7f9d9aeef (patch) | |
| tree | 3516b3914625d6251479d0d66412687ab6852db5 | |
| parent | 5994a8fec4525010a9a4d97c806070c0be4c99d6 (diff) | |
| download | chromatopelma-123157a28313954d78219f7b3e18c1e7f9d9aeef.tar.zst | |
Use a better hashing scheme for identifiers.
| -rw-r--r-- | csc/macros.csc | 4 |
1 files changed, 1 insertions, 3 deletions
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) |