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

Remove the introducer, which isn't being used anyway.

Browse Source 
svn: r11692
This commit is contained in:
Stevie Strickland 2008-09-12 18:13:20 +00:00
parent a4c6d310df
commit 3b44bca1d5
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -185,7 +185,6 @@ improve method arity mismatch contract violation error messages?
(car args))]))) (car args))])))
(define-syntax (with-contract stx) (define-syntax (with-contract stx)
(let ([introducer (make-syntax-introducer)])
(syntax-case stx () (syntax-case stx ()
[(_ blame (arg ...) body0 body ...) [(_ blame (arg ...) body0 body ...)
(identifier? (syntax blame)) (identifier? (syntax blame))
@ -223,7 +222,7 @@ improve method arity mismatch contract violation error messages?
[(_ blame bad-args body0 body ...) [(_ blame bad-args body0 body ...)
(raise-syntax-error 'with-contract (raise-syntax-error 'with-contract
"expected list of identifier and/or (identifier contract)" "expected list of identifier and/or (identifier contract)"
#'bad-args)]))) #'bad-args)]))
; ;
; ;