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

identifier-binding: bias nominal to most recent require

Browse Source 
The `identifier-binding` function doesn't promise to give back any
particular `require` as the nominal binding site, but some tests rely
on the most recent `require` as the binding site. Also, the arrows
in DrRacket look nicest that way.
This commit is contained in:
Matthew Flatt 2018-03-06 13:12:57 -07:00
parent dffcbc1cb2
commit ebef94435c
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/expand/require+provide.rkt
View File

@ -343,7 +343,7 @@
(add-binding!
#:just-for-nominal? #t
id
(module-binding-update b
(module-binding-update ok-binding
#:extra-nominal-bindings
(cons ok-binding
(module-binding-extra-nominal-bindings b)))

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

@ -22265,8 +22265,8 @@ static const char *startup_source =
"(let-values(((temp155_0) #t)"
"((id156_0) id_26)"
"((temp157_0)"
"(let-values(((b159_0)"
" b_64)"
"(let-values(((ok-binding159_0)"
" ok-binding_0)"
"((temp160_0)"
"(cons"
" ok-binding_0"
@ -22295,7 +22295,7 @@ static const char *startup_source =
" #f"
" #f"
" #f"
" b159_0)))"
" ok-binding159_0)))"
"((phase158_0) phase_60))"
"(add-binding!17.1"
" #f"