From 0e9634f917d127b31b1bcfa132d175a62ff96502 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Feb 2018 17:26:53 -0700 Subject: [PATCH] namespace-variable-value: fix default vale for 2nd argument --- racket/src/expander/namespace/api.rkt | 2 +- racket/src/racket/src/startup.inc | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/expander/namespace/api.rkt b/racket/src/expander/namespace/api.rkt index 9f22fb5a05..39f175e504 100644 --- a/racket/src/expander/namespace/api.rkt +++ b/racket/src/expander/namespace/api.rkt @@ -160,7 +160,7 @@ ;; ---------------------------------------- (define (namespace-variable-value sym - [use-mapping? #f] + [use-mapping? #t] [failure-thunk #f] [ns (current-namespace)]) (check 'namespace-variable-value symbol? sym) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index d7869030a0..5da98a74a7 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -42763,7 +42763,7 @@ static const char *startup_source = "(begin" " 'namespace-variable-value53" "(let-values(((sym_51) sym52_0))" -"(let-values(((use-mapping?_0)(if use-mapping?49_0 use-mapping?46_0 #f)))" +"(let-values(((use-mapping?_0)(if use-mapping?49_0 use-mapping?46_0 #t)))" "(let-values(((failure-thunk_5)(if failure-thunk50_0 failure-thunk47_0 #f)))" "(let-values(((ns_79)(if ns51_0 ns48_0(1/current-namespace))))" "(let-values()"