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

extends form supports non-strs and allows explicit prefix

Browse Source
This commit is contained in:
Stephen Chang 2017-03-30 19:01:56 -04:00
parent 84b5a8759f
commit 7e3a21ba6f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
macrotypes/typecheck.rkt
View File

@ -104,15 +104,19 @@
(define-syntax extends
(syntax-parser
[(_ base-lang
(~optional (~seq #:prefix pre))
(~optional (~seq #:except (~and x:id (~not _:keyword)) ...)
#:defaults ([(x 1) null]))
(~optional (~seq #:rename [old new] ...)
#:defaults ([(old 1) null][(new 1) null])))
#:with pre:
(or
(attribute pre)
(let ([pre (or (let ([dat (syntax-e #'base-lang)])
(and (string? dat) (extract-filename dat)))
(and (or (string? dat) (symbol? dat))
(extract-filename dat)))
#'base-lang)])
(format-id #'base-lang "~a:" pre))
(format-id #'base-lang "~a:" pre)))
#:with internal-pre (generate-temporary)
#:with non-excluded-imports #'(except-in base-lang x ... old ...)
#:with conflicted? #'(λ (n) (member (string->symbol n) '(#%app λ #%datum begin let let* letrec if define)))