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

fix nullable-EH-pat warning

Browse Source
This commit is contained in:
AlexKnauth 2016-06-22 08:16:19 -04:00
parent c72d4a7f40
commit a7531326ea
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tapl/typed-lang-builder/typed-lang-builder.rkt
View File

@ -206,6 +206,10 @@
last-clause.pat
clause.pat ... ...)
last-clause.stuff ...]])
(define-splicing-syntax-class stxparse-kws
[pattern (~seq (~or (~seq :keyword _)
(~seq :keyword))
...)])
)
(require (for-meta 1 'syntax-classes)
(for-meta 2 'syntax-classes))
@ -214,14 +218,12 @@
(lambda (stx)
(syntax-parse stx
[(def name:id
(~and (~seq stuff ...) (~or (~seq :keyword _)
(~seq :keyword)))
...
(~and (~seq kw-stuff ...) :stxparse-kws)
rule:rule
...)
#'(-define-typed-syntax
name
stuff ... ...
kw-stuff ...
rule.norm
...)])))
@ -231,14 +233,12 @@
(syntax-parse stx
[(stxparse
stx-id:id
(~and (~seq stuff ...) (~or (~seq :keyword _)
(~seq :keyword)))
...
(~and (~seq kw-stuff ...) :stxparse-kws)
rule:rule
...)
#'(syntax-parse
stx-id
stuff ... ...
kw-stuff ...
rule.norm
...)]))))