From ebef94435c8232f44448938b91a91e8f22ff1437 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 6 Mar 2018 13:12:57 -0700
Subject: [PATCH] identifier-binding: bias nominal to most recent `require`

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.
---
 racket/src/expander/expand/require+provide.rkt | 2 +-
 racket/src/racket/src/startup.inc              | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/racket/src/expander/expand/require+provide.rkt b/racket/src/expander/expand/require+provide.rkt
index b7e4aa3005..79ec8ccd57 100644
--- a/racket/src/expander/expand/require+provide.rkt
+++ b/racket/src/expander/expand/require+provide.rkt
@@ -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)))
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index 76222dbdaf..7888e69f30 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -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"