disable the extra information redex puts for check syntax

... because it results in programs that have different identifiers
with overlapping ranges in the editor, something that check syntax is
not yet prepared to deal with.
This commit is contained in:
Robby Findler 2013-05-05 08:05:26 -05:00
parent 48c719a3ee
commit e5a84eff8d
2 changed files with 5 additions and 1 deletions

View File

@ -87,6 +87,8 @@
(when the-use
(define old (syntax-property void-stx 'disappeared-use))
(set! void-stx
void-stx ;; disable this for now.
#;
(syntax-property void-stx
'disappeared-use
(if old (cons the-use old) the-use)))))

View File

@ -105,7 +105,9 @@
;; shorten the span so it covers only up to the underscore
(string-length (symbol->string nt))))
(define the-id (datum->syntax table-entry nt the-srcloc id-stx))
(syntax-property the-id 'syncheck-original #t)]
(syntax-property the-id 'syncheck-original #t)
;; disable this for now
#f]
[else
#f])]
[else