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

expander: fix cross-module reference to gensymed name

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-26 19:18:58 -07:00
parent 95333f6fe8
commit 5ba83c6340
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/expander/expand/def-id.rkt
View File

@ -49,8 +49,10 @@
(define defined-sym (define defined-sym
(if (and (not (defined-as-other? (hash-ref defined-syms-at-phase sym #f) id phase top-level-bind-scope)) (if (and (not (defined-as-other? (hash-ref defined-syms-at-phase sym #f) id phase top-level-bind-scope))
;; Only use `sym` directly if there are no ;; Only use `sym` directly if there are no
;; extra scopes on the binding form ;; extra scopes on the binding form...
(no-extra-scopes? id all-scopes-stx top-level-bind-scope phase)) (no-extra-scopes? id all-scopes-stx top-level-bind-scope phase)
;; ... and if it's interned
(symbol-interned? sym))
sym sym
(let loop ([pos 1]) (let loop ([pos 1])
(define s (string->unreadable-symbol (format "~a.~a" sym pos))) (define s (string->unreadable-symbol (format "~a.~a" sym pos)))

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

@ -32412,11 +32412,14 @@ static const char *startup_source =
" id_52" " id_52"
" phase_81" " phase_81"
" top-level-bind-scope_3))" " top-level-bind-scope_3))"
"(no-extra-scopes?" "(if(no-extra-scopes?"
" id_52" " id_52"
" all-scopes-stx_3" " all-scopes-stx_3"
" top-level-bind-scope_3" " top-level-bind-scope_3"
" phase_81)" " phase_81)"
"(symbol-interned?"
" sym_9)"
" #f)"
" #f)" " #f)"
" sym_9" " sym_9"
"((letrec-values(((loop_91)" "((letrec-values(((loop_91)"