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/macros.csc | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'csc/macros.csc')

diff --git a/csc/macros.csc b/csc/macros.csc
index 6364e19..045194b 100644
--- a/csc/macros.csc
+++ b/csc/macros.csc
@@ -17,7 +17,6 @@
             insert
             key-not-found-error?
             lookup
-            make-map
             map-for-each
             merge)
           (only (csc ir1)
@@ -374,15 +373,12 @@
       (hash-bytevector (string->utf8 (identifier-uuid i))))
 
 
-    (define (cmp-identifier i1 i2)
-      (cond
-        ((string<? (identifier-uuid i1) (identifier-uuid i2)) -1)
-        ((string=? (identifier-uuid i1) (identifier-uuid i2)) 0)
-        (else 1)))
+    (define (identifier<? i1 i2)
+      (string<? (identifier-uuid i1) (identifier-uuid i2)))
 
 
     (define (alist->substitutions l)
-      (alist->map hash-identifier cmp-identifier l))
+      (alist->map hash-identifier identifier<? l))
 
 
     (define (is-underscore expression)
-- 
cgit v1.3.1