Remove symbol->label.

Author: dvanhorn

www/notes/loot/compile.rkt

@@ -474,21 +474,3 @@
     (sar rbx ,(+ 11 imm-shift))
     (cmp rbx #b11011)
     (je err)))
-
-;; Symbol -> Label
-;; Produce a symbol that is a valid Nasm label
-(define (symbol->label s)
-  (string->symbol
-   (string-append
-    "label_"
-    (list->string
-     (map (λ (c)
-            (if (or (char<=? #\a c #\z)
-                    (char<=? #\A c #\Z)
-                    (char<=? #\0 c #\9)
-                    (memq c '(#\_ #\$ #\# #\@ #\~ #\. #\?)))
-                c
-                #\_))
-         (string->list (symbol->string s))))
-    "_"
-    (number->string (eq-hash-code s) 16))))