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

disable the extra information redex puts for check syntax

Browse Source 
... 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/redex/private/rewrite-side-conditions.rkt
View File

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

4
collects/redex/private/term-fn.rkt
View File

@ -105,7 +105,9 @@
;; shorten the span so it covers only up to the underscore ;; shorten the span so it covers only up to the underscore
(string-length (symbol->string nt)))) (string-length (symbol->string nt))))
(define the-id (datum->syntax table-entry nt the-srcloc id-stx)) (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 [else
#f])] #f])]
[else [else