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

only fill in meth-ht when there is a tag-ht to pull from

Browse Source
This commit is contained in:
Robby Findler 2015-04-25 17:25:08 -05:00
parent b3719378fc
commit a7cf8d0f5e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scribble-lib/scribble/blueboxes.rkt
View File

@ -90,10 +90,11 @@
(for ([a-bluebox-info (in-list lst)])
(match a-bluebox-info
[(bluebox-info blueboxes.rktd offset tag-ht mod-time)
(for ([(tag val) (in-hash tag-ht)])
(when (method-tag? tag)
(define-values (class/intf meth) (get-class/interface-and-method tag))
(hash-set! meth-ht meth (cons tag (hash-ref meth-ht meth '())))))]))
(when tag-ht
(for ([(tag val) (in-hash tag-ht)])
(when (method-tag? tag)
(define-values (class/intf meth) (get-class/interface-and-method tag))
(hash-set! meth-ht meth (cons tag (hash-ref meth-ht meth '()))))))]))
meth-ht)
;; build-blueboxes-cache : ... -> (listof (list file-path int valid-blueboxes-info?))