From 56df584eed3a7228ca06a9ed1e49272410a7e671 Mon Sep 17 00:00:00 2001 From: Rose Hogenson 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/cps.csc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'csc/cps.csc') diff --git a/csc/cps.csc b/csc/cps.csc index 230a1c4..e7f0fe6 100644 --- a/csc/cps.csc +++ b/csc/cps.csc @@ -320,8 +320,7 @@ (lambda (ref) (gensym->int (lexical-ref-gensym ref))) (lambda (x y) - (< (gensym->int (lexical-ref-gensym x)) - (gensym->int (lexical-ref-gensym y)))))) + (- (gensym->int (lexical-ref-gensym y)) (gensym->int (lexical-ref-gensym x)))))) (define (get-boxed expr) -- cgit v1.3.1