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

Just indention.

Browse Source 
svn: r11689
This commit is contained in:
Stevie Strickland 2008-09-12 16:59:00 +00:00
parent ea206c7b3d
commit e53d5c43ff
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -96,9 +96,11 @@ improve method arity mismatch contract violation error messages?
define-stx)]
[(_ name+arg-list contract body0 body ...)
(let-values ([(name lam-expr)
(normalize-definition (datum->syntax #'define-stx (list* 'define/contract #'name+arg-list #'body0 #'(body ...)))
#'lambda #t #t)])
#`(define/contract #,name contract #,lam-expr))]))
(normalize-definition
(datum->syntax #'define-stx (list* 'define/contract #'name+arg-list
#'body0 #'(body ...)))
#'lambda #t #t)])
#`(define/contract #,name contract #,lam-expr))]))