commit b3719378fc882bbd13d744354119afc77aa0a4cc parent 3ea5bd2e31439cad545f42a031bd1a66b3e8f71b Author: Robby Findler <robby@racket-lang.org> Date: Sat, 25 Apr 2015 07:09:03 -0500 adjust the code that initializes the cache to be more defensive Diffstat:
| M | scribble-lib/scribble/blueboxes.rkt | | | 7 | ++++--- |
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/scribble-lib/scribble/blueboxes.rkt b/scribble-lib/scribble/blueboxes.rkt @@ -80,9 +80,10 @@ (define (populate-cache! cache) (define cache-content (blueboxes-cache-info-or-paths cache)) (when ((listof path?) cache-content) - (set-blueboxes-cache-info-or-paths! cache (build-blueboxes-cache cache-content)) - (define mtd-table (compute-methods-table (blueboxes-cache-info-or-paths cache))) - (set-blueboxes-cache-method->tags! cache mtd-table))) + (define the-cache (build-blueboxes-cache cache-content)) + (define mtd-table (compute-methods-table the-cache)) + (set-blueboxes-cache-method->tags! cache mtd-table) + (set-blueboxes-cache-info-or-paths! cache the-cache))) (define (compute-methods-table lst) (define meth-ht (make-hash))