From a7cf8d0f5e53bcfe052bbe496d07127c0ad13be0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 25 Apr 2015 17:25:08 -0500
Subject: [PATCH] only fill in meth-ht when there is a tag-ht to pull from
---
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
index f76c4104..4f655d40 100644
--- 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?))