git rid of thread unsafe use of load-collections-xref
This was there, I believe, to avoid latency when clicking on the [docs] links in the language dialog. But now that we're using a database anyways, loading the xrefs is fast.
This commit is contained in:
parent
10137dc679
commit
8a3f662d51
|
@ -1271,14 +1271,6 @@
|
|||
(do-insert "#lang" #t)
|
||||
(loop (cdr strs))))
|
||||
|
||||
(define xref-chan (make-channel))
|
||||
(thread
|
||||
(λ ()
|
||||
(define xref (load-collections-xref))
|
||||
(let loop ()
|
||||
(channel-put xref-chan xref)
|
||||
(loop))))
|
||||
|
||||
(define spacer-snips '())
|
||||
(define spacer-poses '())
|
||||
|
||||
|
@ -1350,7 +1342,7 @@
|
|||
[else (void)])))
|
||||
(send t set-clickback before-docs after-docs
|
||||
(λ (t start end)
|
||||
(define-values (path tag) (xref-tag->path+anchor (channel-get xref-chan) `(mod-path ,(symbol->string lang))))
|
||||
(define-values (path tag) (xref-tag->path+anchor (load-collections-xref) `(mod-path ,(symbol->string lang))))
|
||||
(define url (path->url path))
|
||||
(define url2 (if tag
|
||||
(make-url (url-scheme url)
|
||||
|
|
Loading…
Reference in New Issue
Block a user