fix retract bug

parent 4dd5256a
......@@ -180,7 +180,7 @@ xi = #(val x)
(d (co d-x d-y))
(touch (or touch-x touch-y)))
(if (not touch)
(values tree #f k N)
(values tree #f k N d)
(if (or val-x val-y)
(values (comb val-x val-y N d) #t k N d)
(values #f #t 0 1 (co))))))))))
......@@ -198,7 +198,7 @@ xi = #(val x)
(if (>= n 1)
(sum tree comb-l (remove-raw pred l one?) (remove-r r) n)
(case n
((-1) (values tree #f 0 0))
((-1) (values tree #f 0 0 (co)))
((0) (do-one l tree)))))))
......@@ -206,7 +206,7 @@ xi = #(val x)
(define (dynlist-remove pred tree one?)
(call-with-values (lambda () (remove-raw pred tree one?))
(lambda (val touch k n)
(lambda (val touch k n ddd)
(if touch
(if val
(if (< (+ k k) n)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment