From cf60eb2715f5677d0ce86a388c459f45d05f372a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 26 Feb 2018 19:24:52 -0700 Subject: [PATCH] reader: fix `#reader` --- racket/src/expander/read/extension.rkt | 2 +- racket/src/racket/src/startup.inc | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/expander/read/extension.rkt b/racket/src/expander/read/extension.rkt index fbfe37981d..c134ec5616 100644 --- a/racket/src/expander/read/extension.rkt +++ b/racket/src/expander/read/extension.rkt @@ -234,6 +234,6 @@ (raise-result-error 'read-language "(procedure-arity-includes?/c 2)" result-v)) result-v] [(special-comment? result-v) - (read-recur in config)] + (read-recur #f in config)] [else (coerce result-v in config)])])) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 230656384a..dbe77f1902 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -53157,7 +53157,7 @@ static const char *startup_source = " result-v_1)))" " result-v_1))" "(if(1/special-comment? result-v_1)" -"(let-values()(read-recur_4 in_57 config_53))" +"(let-values()(read-recur_4 #f in_57 config_53))" "(let-values()" "(coerce result-v_1 in_57 config_53))))))))))))))))))))))))))" "(define-values"