From c04e3c7cd6726a95da3d58979f582afb7a5b722f Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sun, 24 Jul 2022 16:20:00 -0700
Subject: Export some common comparers from hash-map.

---
 csc/linker.csc | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

(limited to 'csc/linker.csc')

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
-- 
cgit v1.3.1