diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-23 11:06:55 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-23 11:06:55 -0700 |
| commit | 56df584eed3a7228ca06a9ed1e49272410a7e671 (patch) | |
| tree | e5b495821c1206eedfd0f6a7f33d37eda2cf8dcc /csc/cps.csc | |
| parent | Handle global variables. (diff) | |
| download | chromatopelma-56df584eed3a7228ca06a9ed1e49272410a7e671.tar.zst | |
Add a delete method to the red-black tree.
God damn delete is even more complicated than insert. I think it works,
at least.
Diffstat (limited to 'csc/cps.csc')
| -rw-r--r-- | csc/cps.csc | 3 |
1 files changed, 1 insertions, 2 deletions
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) |