From 71640d11bfb53ec3b4b2108fa3fda299dc30beac Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Thu, 15 May 2008 06:40:07 -0700
Subject: [PATCH] Fixed a problem with forward references in the repl which
 used to get a location different from the one assigned when the variable is
 defined.

---
 scheme/psyntax.expander.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index 9bb2c8a..14047bf 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -592,6 +592,7 @@
              ;;; fabricate binding
              (let ([rib (interaction-env-rib env)])
                (let-values ([(lab loc_) (gen-define-label+loc id rib)])
+                 (extend-rib! rib id lab)
                  lab)))]
           [else #f])))