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