From f6805ea0c2c643cf9f3f40584f6a382632cd626c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 26 Dec 2012 21:17:19 -0600 Subject: [PATCH] remove fancy delay dance around load-collections-xref --- collects/drracket/private/syncheck/xref.rkt | 16 ++-------------- collects/tests/drracket/memory-log.rkt | 1 - 2 files changed, 2 insertions(+), 15 deletions(-) diff --git a/collects/drracket/private/syncheck/xref.rkt b/collects/drracket/private/syncheck/xref.rkt index 15a5a0833f..7ada4e0cd6 100644 --- a/collects/drracket/private/syncheck/xref.rkt +++ b/collects/drracket/private/syncheck/xref.rkt @@ -1,20 +1,9 @@ #lang racket/base (require setup/xref - racket/promise - scribble/xref - scribble/manual-struct) + scribble/xref) (provide get-index-entry-info) -(define delayed-xref - (if (getenv "PLTDRXREFDELAY") - (begin - (printf "PLTDRXREFDELAY: using plain delay\n") - (delay (begin - (printf "PLTDRXREFDELAY: loading xref\n") - (begin0 - (load-collections-xref) - (printf "PLTDRXREFDELAY: loaded xref\n"))))) - (delay/idle (load-collections-xref)))) +(define xref (load-collections-xref)) (define req-chan (make-channel)) @@ -25,7 +14,6 @@ (define-values (binding-info cd resp-chan nack-evt) (apply values (channel-get req-chan))) (define resp (parameterize ([current-directory cd]) - (define xref (force delayed-xref)) (and xref (let ([definition-tag (xref-binding->definition-tag xref binding-info #f)]) (and definition-tag diff --git a/collects/tests/drracket/memory-log.rkt b/collects/tests/drracket/memory-log.rkt index 9ed0285734..fcd6763f58 100644 --- a/collects/tests/drracket/memory-log.rkt +++ b/collects/tests/drracket/memory-log.rkt @@ -27,7 +27,6 @@ [else (loop new-cmu (- n 1))])))) -(void (putenv "PLTDRXREFDELAY" "yes")) (void (putenv "PLTDRPLACEPRINT" "yes")) (define (wait-and-print)