From 2c1bab05d6c2debf71ea313901dc751a753880c4 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Thu, 28 Jul 2022 15:41:42 -0700
Subject: Use a better interface for linker.

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

(limited to 'csc/linker-test.csc')

diff --git a/csc/linker-test.csc b/csc/linker-test.csc
index 70e5e31..7b5d5db 100644
--- a/csc/linker-test.csc
+++ b/csc/linker-test.csc
@@ -16,17 +16,6 @@
   (begin
 
 
-    (define compare-globals
-      (make-comparer
-        (lambda (x)
-          (hash-bytevector (string->utf8 (sprintf "{}" x))))
-        (lambda (x y)
-          (cond
-            ((equal? x y) 0)
-            ((string<? (sprintf "{}" x) (sprintf "{}" y)) -1)
-            (else 1)))))
-
-
     (test link-labels
       (assert-equal
         '((jmp (const 3))
@@ -39,8 +28,7 @@
              (label 1)
              (jmp (label 0))
              (label init)
-             (jmp (label 0))))
-          (make-map compare-globals))))
+             (jmp (label 0)))))))
 
 
     (test link-labels-are-unique-per-program
@@ -59,8 +47,7 @@
             ((label 0)
              (jmp (label 0))
              (label init)
-             (jmp (label 0))))
-          (make-map compare-globals))))
+             (jmp (label 0)))))))
 
 
     (test link-globals
-- 
cgit v1.3.1