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

namespace-variable-value: fix default vale for 2nd argument

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-27 17:26:53 -07:00
parent 4e1e91a34e
commit 0e9634f917
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -160,7 +160,7 @@
;; ---------------------------------------- ;; ----------------------------------------
(define (namespace-variable-value sym (define (namespace-variable-value sym
[use-mapping? #f] [use-mapping? #t]
[failure-thunk #f] [failure-thunk #f]
[ns (current-namespace)]) [ns (current-namespace)])
(check 'namespace-variable-value symbol? sym) (check 'namespace-variable-value symbol? sym)

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

@ -42763,7 +42763,7 @@ static const char *startup_source =
"(begin" "(begin"
" 'namespace-variable-value53" " 'namespace-variable-value53"
"(let-values(((sym_51) sym52_0))" "(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(((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(((ns_79)(if ns51_0 ns48_0(1/current-namespace))))"
"(let-values()" "(let-values()"