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

fix bug in reuse to avoid conflict with ids that happen to use the same prefix

Browse Source
This commit is contained in:
Stephen Chang 2016-04-19 16:06:09 -04:00
parent c64251cac0
commit 51f9008b99
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tapl/typecheck.rkt
View File

@ -123,13 +123,16 @@
(let* ([pre-str #,(string-append (drop-file-ext (syntax-e #'base-lang)) ":")]
[pre-str-len (string-length pre-str)]
[drop-pre (λ (s) (substring s pre-str-len))]
[excluded (map (compose symbol->string syntax->datum) (syntax->list #'(new ...)))])
[excluded (map (compose symbol->string syntax->datum) (syntax->list #'(new ...)))]
[origs (map symbol->string (syntax->datum #'(x ...)))])
(λ (name)
(define out-name
(or (and (string-prefix? name pre-str)
(drop-pre name))
name))
(and (not (member out-name excluded)) out-name)))
(and (not (member out-name excluded))
(member out-name origs)
out-name)))
(all-from-out base-lang))))]))
(define-syntax add-expected