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/cps.csc | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'csc/cps.csc')

diff --git a/csc/cps.csc b/csc/cps.csc
index e7f0fe6..81ba933 100644
--- a/csc/cps.csc
+++ b/csc/cps.csc
@@ -10,6 +10,7 @@
             insert
             key-not-found-error?
             lookup
+            make-comparer
             make-map
             map->alist
             merge)
@@ -315,14 +316,18 @@
         (_ (error "unexpected type in to-cps" expr))))
 
 
-    (define (make-ref-map)
-      (make-map
+    (define compare-refs
+      (make-comparer
         (lambda (ref)
           (gensym->int (lexical-ref-gensym ref)))
         (lambda (x y)
           (- (gensym->int (lexical-ref-gensym y)) (gensym->int (lexical-ref-gensym x))))))
 
 
+    (define (make-ref-map)
+      (make-map compare-refs))
+
+
     (define (get-boxed expr)
       (match expr
         ((% %update ref _ continuation)
-- 
cgit v1.3.1