From 760b2924c678bc5d911946efc35b8ef3cbc89873 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 11 Feb 2020 06:37:08 -0700 Subject: [PATCH] expander: fix typo Misplaced paren created a misapplication of `weak-box-value`. --- racket/src/expander/namespace/registry.rkt | 2 +- racket/src/racket/src/startup.inc | 6 +++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/racket/src/expander/namespace/registry.rkt b/racket/src/expander/namespace/registry.rkt index a21585c5f3..ae5cfa631f 100644 --- a/racket/src/expander/namespace/registry.rkt +++ b/racket/src/expander/namespace/registry.rkt @@ -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 diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index d0d6bcba73..c23a97afc2 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -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)"