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 '())]))
(define/private (index->nexts index)
(let ([n (vector-ref heap-vec index)])
(cond
[(and (exact-integer? n)
(<= 0 n)
(< n (vector-length heap-vec)))
(list n)]
[(procedure? n)
(map read-root (procedure-roots n))]
[else
'()])))
(if (< index (vector-length heap-vec))
(let ([n (vector-ref heap-vec index)])
(cond
[(and (exact-integer? n)
(<= 0 n)
(< n (vector-length heap-vec)))
(list n)]
[(procedure? n)
(map read-root (procedure-roots n))]
[else
'()]))
'()))
(define/private (find-connections start)
(let ([visited (make-hash)]