diff options
| -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) |