suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

read: restore some lost source-location reporting

Browse Source
This commit is contained in:
Matthew Flatt 2018-03-01 07:54:03 -07:00
parent 82d761aef0
commit c59c961ebc
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/expander/read/config.rkt
View File

@ -97,7 +97,9 @@
(define (port+config->srcloc in config) (define (port+config->srcloc in config)
(define-values (end-line end-col end-pos) (port-next-location in)) (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-line config)
(read-config-col config) (read-config-col config)
(read-config-pos config) (read-config-pos config)