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

allow the arrow to appear anywhere (since no inputs is a possible case)

Browse Source 
svn: r12039
This commit is contained in:
Eli Barzilay 2008-10-14 19:07:27 +00:00
parent 9cc7f90a0a
commit 05db2f04af
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/typed-scheme/private/prims.ss
View File

@ -165,9 +165,9 @@ This file defines two sorts of primitives. All of them are provided into any mod
;; and in that case, a `->' on the RHS does not need to be ;; and in that case, a `->' on the RHS does not need to be
;; explicitly parenthesized ;; explicitly parenthesized
(syntax-case stx (:) (syntax-case stx (:)
[(: id : first x ... last) [(: id : x ...)
(ormap (lambda (x) (eq? '-> (syntax-e x))) (syntax->list #'(x ...))) (ormap (lambda (x) (eq? '-> (syntax-e x))) (syntax->list #'(x ...)))
(syntax/loc stx (: id (first x ... last)))] (syntax/loc stx (: id (x ...)))]
[(: id : . more) (syntax/loc stx (: id . more))] [(: id : . more) (syntax/loc stx (: id . more))]
[_ stx])) [_ stx]))
(define (err str . sub) (define (err str . sub)