suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed comment

Browse Source 
svn: r6292
This commit is contained in:
Robby Findler 2007-05-25 13:22:29 +00:00
parent 92b0316734
commit 2f97ee61a8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/contract.ss
View File

@ -160,7 +160,7 @@ improve method arity mismatch contract violation error messages?
;; (provide/contract p/c-ele ...) ;; (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'. ;; provides each `id' with the contract `expr'.
(define-syntax (provide/contract provide-stx) (define-syntax (provide/contract provide-stx)
(syntax-case provide-stx (struct) (syntax-case provide-stx (struct)