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

Add in nicer version for function definitions.

Browse Source 
svn: r11648
This commit is contained in:
Stevie Strickland 2008-09-11 17:36:43 +00:00
parent c1fa0fe0ed
commit 16399b7827
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -60,6 +60,10 @@ improve method arity mismatch contract violation error messages?
#'(with-contract name #'(with-contract name
([name contract-expr]) ([name contract-expr])
(define name expr))] (define name expr))]
[(_ (name arg ...) contract body)
(identifier? (syntax name))
#'(define/contract name contract
(lambda (arg ...) body))]
[(_ name contract-expr expr) [(_ name contract-expr expr)
(raise-syntax-error 'define/contract "expected identifier in first position" (raise-syntax-error 'define/contract "expected identifier in first position"
define-stx define-stx