read: restore some lost source-location reporting

2018-03-01 07:54:03 -07:00 · 2018-03-01 07:54:03 -07:00 · c59c961ebc
commit c59c961ebc
parent 82d761aef0
1 changed files with 3 additions and 1 deletions
--- 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)