Export some common comparers from hash-map.

1 files changed, 7 insertions, 2 deletions

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)