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

Fixed a bug with Typed Scheme's do: with no finish-expr.

Browse Source 
Include in 5.0 release.
This commit is contained in:
Vincent St-Amour 2010-05-21 16:04:51 -04:00
parent 88dc30aa3c
commit fece1f6d03
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.rkt
View File

@ -367,13 +367,13 @@ This file defines two sorts of primitives. All of them are provided into any mod
(syntax-parse stx #:literals (:) (syntax-parse stx #:literals (:)
[(_ : ty [(_ : ty
((var:annotated-name init (~optional step:expr #:defaults ([step #'var]))) ...) ((var:annotated-name init (~optional step:expr #:defaults ([step #'var]))) ...)
(stop?:expr (~optional (~seq finish:expr ...) #:defaults ([(finish 1) #'((void))]))) (stop?:expr (~optional (~seq finish0:expr finish:expr ...) #:defaults ([finish0 #'(void)] [(finish 1) '()])))
c:expr ...) c:expr ...)
(syntax/loc (syntax/loc
stx stx
(let: doloop : ty ([var.name : var.ty init] ...) (let: doloop : ty ([var.name : var.ty init] ...)
(if stop? (if stop?
(begin finish ...) (begin finish0 finish ...)
(begin c ... (doloop step ...)))))])) (begin c ... (doloop step ...)))))]))
(define-syntax (provide: stx) (define-syntax (provide: stx)