From f83bf42796dc277d8337ea3f695ec6da03e9d8bc Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 6 Dec 2009 10:46:05 +0000
Subject: [PATCH] use "anonymous-module" for modules without a source file

svn: r17228
---
 collects/syntax/module-reader.ss         |  2 +-
 collects/tests/mzscheme/module-reader.ss | 21 +++++++++++++--------
 2 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/collects/syntax/module-reader.ss b/collects/syntax/module-reader.ss
index 316f1137e5..555d574068 100644
--- a/collects/syntax/module-reader.ss
+++ b/collects/syntax/module-reader.ss
@@ -190,7 +190,7 @@
                    (let-values ([(base name dir?) (split-path p-name)])
                      (string->symbol
                       (path->string (path-replace-suffix name #""))))
-                   'page)]
+                   'anonymous-module)]
            [tag-src (lambda (v)
                       (if stx?
                         (datum->syntax
diff --git a/collects/tests/mzscheme/module-reader.ss b/collects/tests/mzscheme/module-reader.ss
index 826f9c5adf..198d66f723 100644
--- a/collects/tests/mzscheme/module-reader.ss
+++ b/collects/tests/mzscheme/module-reader.ss
@@ -20,7 +20,8 @@
 ;; plain version
 (module r0 syntax/module-reader scheme/base)
 (test-both '(r0) "#reader '~s (define FoO #:bAr)"
-           '(module page scheme/base (#%module-begin (define FoO #:bAr))))
+           '(module anonymous-module scheme/base
+              (#%module-begin (define FoO #:bAr))))
 
 ;; using a simple wrapper to get a case-insensitive reader
 (module r1 syntax/module-reader scheme/base
@@ -35,7 +36,8 @@
     (parameterize ([read-case-sensitive #f]) (apply reader args))))
 ;;
 (test-both '(r1 r2 r3) "#reader '~s (define FoO #:bAr)"
-           '(module page scheme/base (#%module-begin (define foo #:bar))))
+           '(module anonymous-module scheme/base
+              (#%module-begin (define foo #:bar))))
 
 ;; add something to the result
 (module r4 syntax/module-reader zzz
@@ -45,7 +47,8 @@
   #:wrapper1 (lambda (t stx?) (cons (if stx? #'foo 'foo) (t))))
 ;;
 (test-both '(r4 r5) "#reader '~s (define foo #:bar)"
-           '(module page zzz (#%module-begin foo (define foo #:bar))))
+           '(module anonymous-module zzz
+              (#%module-begin foo (define foo #:bar))))
 
 ;; make an empty module, after reading the contents
 (module r6 syntax/module-reader zzz
@@ -57,15 +60,15 @@
 (module r8 syntax/module-reader whatever
   #:wrapper2 (lambda (in rd)
                (if (syntax? (rd in))
-                 #'(module page zzz (#%module-begin))
-                 '(module page zzz (#%module-begin)))))
+                 #'(module anonymous-module zzz (#%module-begin))
+                 '(module anonymous-module zzz (#%module-begin)))))
 ;; the same, the easy way
 (module r9 syntax/module-reader
   #:language (lambda () 'zzz)
   #:wrapper1 (lambda (t) '()))
 ;;
 (test-both '(r6 r7 r8 r9) "#reader '~s (define foo #:bar)"
-           '(module page zzz (#%module-begin)))
+           '(module anonymous-module zzz (#%module-begin)))
 
 ;; a module that uses the scribble syntax with a specified language
 (module r10 syntax/module-reader -ignored-
@@ -91,9 +94,11 @@
   (require scribble/reader))
 ;;
 (test-both '(r10 r11) "#reader '~s scheme/base (define foo 1)"
-           '(module page scheme/base (#%module-begin (define foo 1))))
+           '(module anonymous-module scheme/base
+              (#%module-begin (define foo 1))))
 (test-both '(r10 r11) "#reader '~s scheme/base @define[foo]{one}"
-           '(module page scheme/base (#%module-begin (define foo "one"))))
+           '(module anonymous-module scheme/base
+              (#%module-begin (define foo "one"))))
 
 ;; ----------------------------------------