Always set original

This commit is contained in:
Jay McCarthy 2015-11-20 11:55:55 -05:00
parent c2a3c35db1
commit 437a53717c

View File

@ -72,4 +72,4 @@
(port-count-lines! p)
(match-define (list source-name line column position span) srcloc)
(set-port-next-location! p line column position)
(read-syntax source-name p))
(syntax-property (read-syntax source-name p) 'original-for-check-syntax #t))