Export some common comparers from hash-map.

1 files changed, 2 insertions, 13 deletions

diff --git a/csc/linker.csc b/csc/linker.csc
index 3327909..b840c15 100644
--- a/csc/linker.csc
+++ b/csc/linker.csc
@@ -4,8 +4,8 @@
           (only (csc encoding) encode)
           (only (csc format) sprintf)
           (only (csc hash-map)
-            hash-bytevector
             insert
+            compare-strings
             lookup
             make-map)
           (only (csc list)
@@ -37,19 +37,8 @@
             (_ #f)))
 
 
-    (define (hash-string s)
-      (hash-bytevector (string->utf8 s)))
-
-
-    (define (cmp-strings s1 s2)
-      (cond
-        ((string=? s1 s2) 0)
-        ((string<? s1 s2) -1)
-        (else 1)))
-
-
     (define (make-label-map program)
-      (let loop ((m (make-map hash-string cmp-strings))
+      (let loop ((m (make-map compare-strings))
                  (program program)
                  (i 0))
         (match program