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

fix source name of built-in modules

Browse Source 
Closes PR 12051

 Merge to 5.1.2
(cherry picked from commit 92671ab3ea)
This commit is contained in:
Matthew Flatt 2011-07-16 21:40:14 -06:00 committed by Eli Barzilay
parent 253ba1376b
commit 70fdc4ef90
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/racket/module.rktl
View File

@ -518,6 +518,14 @@
(print (module->namespace ''n) s)
(test #t regexp-match? #rx"<namespace:'" (get-output-string s)))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Check "source" name of built-in module:
(parameterize ([current-namespace (module->namespace ''#%network)])
(test '#%network
variable-reference->module-source
(eval (datum->syntax #'here '(#%variable-reference)))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(report-errs)

2
src/racket/src/module.c
View File

@ -4766,6 +4766,8 @@ Scheme_Env *scheme_primitive_module(Scheme_Object *name, Scheme_Env *for_env)
src = prefix;
else
src = scheme_intern_resolved_module_path(src);
if (SCHEME_FALSEP(src))
src = name;
insp = scheme_get_param(config, MZCONFIG_CODE_INSPECTOR);
}
else {