diff --git a/collects/scribble/srcdoc.ss b/collects/scribble/srcdoc.ss index d7b7cd8a..c6b8203d 100644 --- a/collects/scribble/srcdoc.ss +++ b/collects/scribble/srcdoc.ss @@ -108,7 +108,7 @@ (length (syntax->list #'(arg-names ...)))) (raise-syntax-error #f "mismatched argument list and domain contract count" stx)) #'([(id (arg-names ctcs) ...) result]))] - + [((->* (mandatory ...) (optional ...) result) ((mandatory-names ...) ((optional-names optional-default) ...)))