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

Go back to the old style.

Browse Source 
svn: r11688
This commit is contained in:
Stevie Strickland 2008-09-12 16:48:33 +00:00
parent e2c770ab45
commit ea206c7b3d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/private/contract.ss
View File

@ -142,7 +142,7 @@ improve method arity mismatch contract violation error messages?
id id
pos-blame-id pos-blame-id
'neg-blame-id 'neg-blame-id
(quote-syntax #,(id->contract-src-info #'f))) (quote-syntax f))
arg ...))] arg ...))]
[ident [ident
(identifier? (syntax ident)) (identifier? (syntax ident))
@ -151,7 +151,7 @@ improve method arity mismatch contract violation error messages?
id id
pos-blame-id pos-blame-id
'neg-blame-id 'neg-blame-id
(quote-syntax #,(id->contract-src-info #'ident))))]))))) (quote-syntax ident)))])))))
(define-for-syntax (check-and-split-with-contract-args args) (define-for-syntax (check-and-split-with-contract-args args)
(let loop ([args args] (let loop ([args args]