suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix the random property; sadly still doesn't find the bug Danny found

Browse Source
This commit is contained in:
Robby Findler 2013-01-29 19:24:27 -06:00
parent 8013ccf60e
commit 5a55f64444
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/data/union-find.rkt
View File

@ -126,7 +126,7 @@
(cond (cond
[(box? uf/box) (void)] [(box? uf/box) (void)]
[else [else
(unless (<= rank (uf-set-rank uf)) (unless (< rank (uf-set-rank uf/box))
(error 'check-ranks "failed for ~s" (error 'check-ranks "failed for ~s"
(let loop ([uf uf]) (let loop ([uf uf])
(cond (cond