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

Removing error when hovering over non-heap squares. Fixes pr11147

Browse Source
This commit is contained in:
Jay McCarthy 2010-08-30 14:12:36 -06:00
parent 5684ba4a9c
commit ef664d531f
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/plai/private/gc-gui.rkt
View File

@ -318,16 +318,18 @@
(update-arrows '())])) (update-arrows '())]))
(define/private (index->nexts index) (define/private (index->nexts index)
(let ([n (vector-ref heap-vec index)]) (if (< index (vector-length heap-vec))
(cond (let ([n (vector-ref heap-vec index)])
[(and (exact-integer? n) (cond
(<= 0 n) [(and (exact-integer? n)
(< n (vector-length heap-vec))) (<= 0 n)
(list n)] (< n (vector-length heap-vec)))
[(procedure? n) (list n)]
(map read-root (procedure-roots n))] [(procedure? n)
[else (map read-root (procedure-roots n))]
'()]))) [else
'()]))
'()))
(define/private (find-connections start) (define/private (find-connections start)
(let ([visited (make-hash)] (let ([visited (make-hash)]