From 92671ab3ea7803e1f0c906e86272c960bdf52ddd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 16 Jul 2011 21:40:14 -0600
Subject: [PATCH] fix source name of built-in modules

 Closes PR 12051

 Merge to 5.1.2
---
 collects/tests/racket/module.rktl | 8 ++++++++
 src/racket/src/module.c           | 2 ++
 2 files changed, 10 insertions(+)

diff --git a/collects/tests/racket/module.rktl b/collects/tests/racket/module.rktl
index feb9b2f2b4..f17c36a7bd 100644
--- a/collects/tests/racket/module.rktl
+++ b/collects/tests/racket/module.rktl
@@ -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)
diff --git a/src/racket/src/module.c b/src/racket/src/module.c
index f445010793..68eaa8c08e 100644
--- a/src/racket/src/module.c
+++ b/src/racket/src/module.c
@@ -4769,6 +4769,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 {