Always set original
This commit is contained in:
parent
c2a3c35db1
commit
437a53717c
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user