From 37e086d27d478246e72b8f5c1b75ed5d092495fa Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sat, 2 Jul 2022 23:04:28 -0700
Subject: Write closure conversion.

I desperately need a diffing library.
---
 csc/linker.csc | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

(limited to 'csc/linker.csc')

diff --git a/csc/linker.csc b/csc/linker.csc
index b3f2a5d..852ee13 100644
--- a/csc/linker.csc
+++ b/csc/linker.csc
@@ -41,15 +41,8 @@
       (hash-bytevector (string->utf8 s)))
 
 
-    (define (cmp-strings s1 s2)
-      (cond
-        ((string<? s1 s2) -1)
-        ((string=? s1 s2) 0)
-        (else 1)))
-
-
     (define (make-label-map program)
-      (let loop ((m (make-map hash-string cmp-strings))
+      (let loop ((m (make-map hash-string string<?))
                  (program program)
                  (i 0))
         (match program
-- 
cgit v1.3.1