Canonicalize treap-empty result
This commit is contained in:
parent
b9954c0f9e
commit
e7c9bcfa8f
|
@ -71,7 +71,7 @@
|
||||||
;; The singleton "empty" leaf sentinel
|
;; The singleton "empty" leaf sentinel
|
||||||
(define L0 (L))
|
(define L0 (L))
|
||||||
|
|
||||||
(define (treap-empty o) (treap o L0 0))
|
(define (treap-empty o) (canonicalize (treap o L0 0)))
|
||||||
|
|
||||||
(define (treap-empty? t) (zero? (treap-size t)))
|
(define (treap-empty? t) (zero? (treap-size t)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue