conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scheme/psyntax.expander.ss
View File

@ -592,6 +592,7 @@
;;; fabricate binding ;;; fabricate binding
(let ([rib (interaction-env-rib env)]) (let ([rib (interaction-env-rib env)])
(let-values ([(lab loc_) (gen-define-label+loc id rib)]) (let-values ([(lab loc_) (gen-define-label+loc id rib)])
(extend-rib! rib id lab)
lab)))] lab)))]
[else #f]))) [else #f])))