From b3719378fc882bbd13d744354119afc77aa0a4cc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 25 Apr 2015 07:09:03 -0500 Subject: [PATCH] adjust the code that initializes the cache to be more defensive --- 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 index 785d5df4..f76c4104 100644 --- 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))