From 701c9666d6091aa55aac0587b0d4240d13044569 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 16 Jul 2011 21:12:22 -0600
Subject: [PATCH] fix printing of namespace with places enabled

 This commit goes with 62acb298bdc79e.
---
 collects/tests/racket/module.rktl | 17 +++++++++++++++++
 src/racket/src/print.c            |  2 +-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/collects/tests/racket/module.rktl b/collects/tests/racket/module.rktl
index bc9602488a..feb9b2f2b4 100644
--- a/collects/tests/racket/module.rktl
+++ b/collects/tests/racket/module.rktl
@@ -501,6 +501,23 @@
       (let ([n-ns (eval '(module->namespace ''n) ns)])
         (test 5 eval '(lambda (x) x) n-ns)))))
 
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Check printing of resolved module paths
+
+(let ([s (open-output-string)])
+  (print (make-resolved-module-path (build-path (current-directory) "a.rkt")) s)
+  (test #t regexp-match? #rx"<resolved-module-path:\"" (get-output-string s)))
+(let ([s (open-output-string)])
+  (print (make-resolved-module-path 'other) s)
+  (test #t regexp-match? #rx"<resolved-module-path:'" (get-output-string s)))
+
+(let ([s (open-output-string)])
+  (print (module->namespace 'scheme/base) s)
+  (test #t regexp-match? #rx"<namespace:\"" (get-output-string s)))
+(let ([s (open-output-string)])
+  (print (module->namespace ''n) s)
+  (test #t regexp-match? #rx"<namespace:'" (get-output-string s)))
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (report-errs)
diff --git a/src/racket/src/print.c b/src/racket/src/print.c
index 0cab9a93de..085d9eec98 100644
--- a/src/racket/src/print.c
+++ b/src/racket/src/print.c
@@ -2565,7 +2565,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
           int is_sym;
           
           modname = ((Scheme_Env *)obj)->module->modname;
-          is_sym = SCHEME_SYMBOLP(SCHEME_PTR_VAL(modname));
+          is_sym = !SCHEME_PATHP(SCHEME_PTR_VAL(modname));
           print_utf8_string(pp, (is_sym ? "'" : "\""), 0, 1);
           print(SCHEME_PTR_VAL(modname), 0, 0, ht, mt, pp);
           PRINTADDRESS(pp, modname);