From 2f97ee61a8f6f62a0df2287e3fa44fa4da5ecef4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 25 May 2007 13:22:29 +0000 Subject: [PATCH] fixed comment svn: r6292 --- collects/mzlib/private/contract.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)