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.
This commit is contained in:
Abdulaziz Ghuloum 2008-05-15 06:40:07 -07:00
parent 6511dd1002
commit 71640d11bf
1 changed files with 1 additions and 0 deletions

View File

@ -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])))