suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove fancy delay dance around load-collections-xref

Browse Source
This commit is contained in:
Robby Findler 2012-12-26 21:17:19 -06:00
parent 8a3f662d51
commit f6805ea0c2
2 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/drracket/private/syncheck/xref.rkt
View File

@ -1,20 +1,9 @@
#lang racket/base #lang racket/base
(require setup/xref (require setup/xref
racket/promise scribble/xref)
scribble/xref
scribble/manual-struct)
(provide get-index-entry-info) (provide get-index-entry-info)
(define delayed-xref (define xref (load-collections-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 req-chan (make-channel)) (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-values (binding-info cd resp-chan nack-evt) (apply values (channel-get req-chan)))
(define resp (define resp
(parameterize ([current-directory cd]) (parameterize ([current-directory cd])
(define xref (force delayed-xref))
(and xref (and xref
(let ([definition-tag (xref-binding->definition-tag xref binding-info #f)]) (let ([definition-tag (xref-binding->definition-tag xref binding-info #f)])
(and definition-tag (and definition-tag

1
collects/tests/drracket/memory-log.rkt
View File

@ -27,7 +27,6 @@
[else [else
(loop new-cmu (- n 1))])))) (loop new-cmu (- n 1))]))))
(void (putenv "PLTDRXREFDELAY" "yes"))
(void (putenv "PLTDRPLACEPRINT" "yes")) (void (putenv "PLTDRPLACEPRINT" "yes"))
(define (wait-and-print) (define (wait-and-print)