Add a delete method to the red-black tree.

God damn delete is even more complicated than insert. I think it works,
at least.

1 files changed, 8 insertions, 1 deletions

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