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

Fixed source location for for:.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-08-04 17:46:03 -04:00
parent b18f2353ca
commit 500685c0f2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/typed-scheme/private/prims.rkt
View File

@ -451,7 +451,7 @@ This file defines two sorts of primitives. All of them are provided into any mod
(syntax-parse clauses (syntax-parse clauses
[(head:for-clause next:for-clause ... #:when rest ...) [(head:for-clause next:for-clause ... #:when rest ...)
(syntax-property (syntax-property
(quasisyntax/loc clauses (quasisyntax/loc stx
(for (for
(head.expand next.expand ...) (head.expand next.expand ...)
#,(loop #'(#:when rest ...)))) #,(loop #'(#:when rest ...))))
@ -459,18 +459,18 @@ This file defines two sorts of primitives. All of them are provided into any mod
#'Void)] #'Void)]
[(head:for-clause ...) ; we reached the end [(head:for-clause ...) ; we reached the end
(syntax-property (syntax-property
(quasisyntax/loc clauses (quasisyntax/loc stx
(for (for
(head.expand ...) (head.expand ...)
#,@body)) #,@body))
'type-ascription 'type-ascription
#'Void)] #'Void)]
[(#:when guard) ; we end on a #:when clause [(#:when guard) ; we end on a #:when clause
(quasisyntax/loc clauses (quasisyntax/loc stx
(when guard (when guard
#,@body))] #,@body))]
[(#:when guard rest ...) [(#:when guard rest ...)
(quasisyntax/loc clauses (quasisyntax/loc stx
(when guard (when guard
#,(loop #'(rest ...))))])))])) #,(loop #'(rest ...))))])))]))