suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 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

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

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