diff --git a/collects/framework/specs.ss b/collects/framework/specs.ss index fb536d1..e779927 100644 --- a/collects/framework/specs.ss +++ b/collects/framework/specs.ss @@ -34,6 +34,7 @@ (and (identifier? (syntax name)) (identifier? (syntax neg-blame)) (identifier? (syntax pos-blame))) + (syntax-case (syntax type) (-> number union boolean interface tst) [(-> funs ...) (with-syntax ([(doms ...) (all-but-last (syntax->list (syntax (funs ...))))]