New symbol->label strategy.

Avoids the hash-eq-code approach; resulting labels are computed
strictly as a function of input symbol, not dependent on memory
location.  So Outlaw compiler and compiled compiler emit same
labels.

Author: dvanhorn

langs/outlaw/utils.rkt

@@ -14,17 +14,15 @@
   (string->symbol
    (string-append
     prefix
-    (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))))
+    (apply string-append
+           (map (λ (c)
+                  (if (or (char<=? #\a c #\z)
+                          (char<=? #\A c #\Z)
+                          (char<=? #\0 c #\9)
+                          (memq c '(#\_ #;#\$ #\# #\@ #\~ #\. #\?)))
+                      (make-string 1 c)
+                      (string-append "$" (number->string (char->integer c) 16))))
+                (string->list (symbol->string s)))))))
 
 ;; Id CEnv -> [Maybe Integer]
 (define (lookup x cenv)