port rest of mlish+adhoc to turnstile

2016-10-04 13:44:22 -04:00 · 2016-10-04 13:44:22 -04:00 · 80d0cec122
commit 80d0cec122
parent 7113debd3c
2 changed files with 481 additions and 500 deletions
--- a/turnstile/examples/mlish+adhoc.rkt
+++ b/turnstile/examples/mlish+adhoc.rkt
--- a/turnstile/turnstile.rkt
+++ b/turnstile/turnstile.rkt
@ -407,12 +407,12 @@
    (lambda (stx)
      (syntax-parse stx
        [(stxparse
-          stx-id:id
+          stx-expr
          (~and (~seq kw-stuff ...) :stxparse-kws)
          rule:rule
          ...)
         #'(syntax-parse
-               stx-id
+               stx-expr
             kw-stuff ...
             rule.norm
             ...)]))))