From 19873777e16ac5996d6bc8ecd254fc6f5c1bf767 Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Sun, 17 Jan 2010 18:50:11 +0000
Subject: [PATCH] Set srcloc processing to use syntax-source-module if
 possible.

svn: r17706
---
 collects/unstable/srcloc.ss | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/collects/unstable/srcloc.ss b/collects/unstable/srcloc.ss
index 89251f6318..1eb1384416 100644
--- a/collects/unstable/srcloc.ss
+++ b/collects/unstable/srcloc.ss
@@ -231,12 +231,22 @@
 
 (define (process-syntax x good bad name)
   (process-elements x good bad name
-                    (syntax-source x)
+                    (syntax-get-source x)
                     (syntax-line x)
                     (syntax-column x)
                     (syntax-position x)
                     (syntax-span x)))
 
+(define (syntax-get-source x)
+  (cond
+   [(syntax-source-module x) =>
+    (lambda (src)
+      (if (module-path-index? src)
+        (resolved-module-path-name
+         (module-path-index-resolve src))
+        src))]
+   [else (syntax-source x)]))
+
 (define (process-list x good bad name)
   (cond
    [(null? x)