commit a7cf8d0f5e53bcfe052bbe496d07127c0ad13be0 parent b3719378fc882bbd13d744354119afc77aa0a4cc Author: Robby Findler <robby@racket-lang.org> Date: Sat, 25 Apr 2015 17:25:08 -0500 only fill in meth-ht when there is a tag-ht to pull from Diffstat:
| M | scribble-lib/scribble/blueboxes.rkt | | | 9 | +++++---- |
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/scribble-lib/scribble/blueboxes.rkt b/scribble-lib/scribble/blueboxes.rkt @@ -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?))