Disarm syntax in typed unit macros

Closes #536

typed-racket-lib/typed-racket/base-env/unit-prims.rkt

@@ -32,7 +32,7 @@
                       syntax/id-table
                       racket/unit-exptime
                       syntax/strip-context
-                      (utils tc-utils)
+                      (utils tc-utils disarm)
                       syntax/id-table
                       syntax/id-set)
           (prefix-in untyped- (only-in racket/unit
@@ -313,7 +313,7 @@
   (syntax-parse stx
     [(_ e)
      (define exp-e (local-expand #'e (syntax-local-context) (kernel-form-identifier-list)))
-     (syntax-parse exp-e
+     (syntax-parse (disarm* exp-e)
        #:literals (begin define-values define-syntaxes :)
        [(begin b ...)
         #'(add-tags b ...)]

typed-racket-test/succeed/unit-syntax-rule-with-annotation.rkt

@@ -0,0 +1,14 @@
+#lang typed/racket/base
+
+(require typed/racket/unit)
+
+(define-syntax-rule (define* form ...) (define form ...))
+
+(define-signature sig^
+  ([id : (Any → Any)]))
+
+(define-unit sig@
+  (import)
+  (export sig^)
+
+  (define* (id [x : Any]) : Any x))