From f790a77e4004e65c39c504e842de065981218d34 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 14 Jul 2011 21:20:17 -0600
Subject: [PATCH] places: fix printing of symbol resolved module paths (cherry
 picked from commit 62acb298bdc79e1f16df8e6a4a95d952388a82fa)

---
 src/racket/src/print.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/print.c b/src/racket/src/print.c
index b71c5b28c5..0cab9a93de 100644
--- a/src/racket/src/print.c
+++ b/src/racket/src/print.c
@@ -2429,7 +2429,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
         int is_sym;
         if (notdisplay)
           print_utf8_string(pp, "#<resolved-module-path:", 0, 23);
-        is_sym = SCHEME_SYMBOLP(SCHEME_PTR_VAL(obj));
+        is_sym = !SCHEME_PATHP(SCHEME_PTR_VAL(obj));
         print_utf8_string(pp, (is_sym ? "'" : "\"") , 0, 1);
         print(SCHEME_PTR_VAL(obj), 0, 0, ht, mt, pp);
 	PRINTADDRESS(pp, obj);