From c59c961ebc3d51e4ff7128b0416d7c69e49dbb66 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 1 Mar 2018 07:54:03 -0700
Subject: [PATCH] read: restore some lost source-location reporting

---
 racket/src/expander/read/config.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/racket/src/expander/read/config.rkt b/racket/src/expander/read/config.rkt
index acb23dd1c9..64402dc3a0 100644
--- a/racket/src/expander/read/config.rkt
+++ b/racket/src/expander/read/config.rkt
@@ -97,7 +97,9 @@
 
 (define (port+config->srcloc in config)
   (define-values (end-line end-col end-pos) (port-next-location in))
-  (srcloc (read-config-source config)
+  (srcloc (or (read-config-source config)
+              (object-name in)
+              "UNKNOWN")
           (read-config-line config)
           (read-config-col config)
           (read-config-pos config)