From 56df584eed3a7228ca06a9ed1e49272410a7e671 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sat, 23 Jul 2022 11:06:55 -0700
Subject: Add a delete method to the red-black tree.

God damn delete is even more complicated than insert. I think it works,
at least.
---
 csc/linker.csc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'csc/linker.csc')

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