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

expander: fix typo

Browse Source 
Misplaced paren created a misapplication of `weak-box-value`.
This commit is contained in:
Matthew Flatt 2020-02-11 06:37:08 -07:00
parent 7279a59c27
commit 760b2924c6
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/namespace/registry.rkt
View File

@ -16,7 +16,7 @@
(define v (unbox lock-box))
(cond
[(or (not v)
(sync/timeout 0 (car v) (or (weak-box-value (cdr v) never-evt))))
(sync/timeout 0 (car v) (or (weak-box-value (cdr v)) never-evt)))
(define sema (make-semaphore))
(define lock (cons (semaphore-peek-evt sema) (make-weak-box (current-thread))))
((dynamic-wind

6
racket/src/racket/src/startup.inc
View File

@ -12447,7 +12447,11 @@ static const char *startup_source =
"(if(let-values(((or-part_0)(not v_0)))"
"(if or-part_0"
" or-part_0"
"(sync/timeout 0(car v_0)(weak-box-value(cdr v_0) never-evt))))"
"(sync/timeout"
" 0"
"(car v_0)"
"(let-values(((or-part_1)(weak-box-value(cdr v_0))))"
"(if or-part_1 or-part_1 never-evt)))))"
"(let-values()"
"(let-values(((sema_0)(make-semaphore)))"
"(let-values(((lock_0)"