diff --git a/collects/mzlib/private/contract.ss b/collects/mzlib/private/contract.ss index ae3e4d1678..1468553637 100644 --- a/collects/mzlib/private/contract.ss +++ b/collects/mzlib/private/contract.ss @@ -160,7 +160,7 @@ improve method arity mismatch contract violation error messages? ;; (provide/contract p/c-ele ...) - ;; p/c-ele = (id expr) | (rename id id expr) | (struct (id expr) ...) + ;; p/c-ele = (id expr) | (rename id id expr) | (struct id (id expr) ...) ;; provides each `id' with the contract `expr'. (define-syntax (provide/contract provide-stx) (syntax-case provide-stx (struct)