Is the change to the native-pkgs sha1 intentional? Sam <div class="gmail_quote">On Sep 8, 2013 3:04 AM, <<a href="mailto:stchang@racket-lang.org">stchang@racket-lang.org</a>> wrote: <blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"> stchang has updated `master' from 672e909880 to 7eaee796e1. <a href="http://git.racket-lang.org/plt/672e909880..7eaee796e1" target="_blank">http://git.racket-lang.org/plt/672e909880..7eaee796e1</a> =====[ 3 Commits ]====================================================== Directory summary: 92.8% pkgs/racket-pkgs/racket-test/tests/racket/ ~~~~~~~~~~ 060ffeb Stephen Chang <<a href="mailto:stchang@racket-lang.org">stchang@racket-lang.org</a>> 2013-09-08 01:48 : | add for/X tests for multi-loop break : M native-pkgs | 2 +- M pkgs/racket-pkgs/racket-test/tests/racket/for.rktl | 6 ++++++ ~~~~~~~~~~ b685746 Stephen Chang <<a href="mailto:stchang@racket-lang.org">stchang@racket-lang.org</a>> 2013-09-08 02:00 : | add for/X tests for outer-loop #:final condition | | - make sure innermost loop is executed only one more time : M pkgs/racket-pkgs/racket-test/tests/racket/for.rktl | 6 ++++++ ~~~~~~~~~~ 7eaee79 Stephen Chang <<a href="mailto:stchang@racket-lang.org">stchang@racket-lang.org</a>> 2013-09-08 03:03 : | add more for/X tests | | - #:break and #:final in body with exprs in between | - both #:break and #:final | - skipped #:final : M .../racket-pkgs/racket-test/tests/racket/for.rktl | 25 ++++++++++++++++++++ =====[ Overall Diff ]=================================================== native-pkgs ~~~~~~~~~~~ --- OLD/native-pkgs +++ NEW/native-pkgs @@ -1 +1 @@ -Subproject commit 5f391155f276da25df85081cf8c80a9760a404b0 +Subproject commit f367c0c4b05b91401d68b0180b416d616b31720d pkgs/racket-pkgs/racket-test/tests/racket/for.rktl ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- OLD/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl +++ NEW/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl @@ -383,4 +383,41 @@ (define-sequence-syntax in-X* (lambda () #'in-X) (lambda (stx) #f)) (for/list ([x (in-X* #:x '(1 2 3))]) x))) + +;; extra tests for #:break and #:final +(test '((0 0) (0 1) (1 0) (1 1)) 'multi-level-break + (for*/list ([i 4] [j 2] #:break (= i 2)) (list i j))) +(test '((1 0 0) (1 0 1) (1 1 0) (1 1 1)) 'multi-level-break + (for/list ([i 5] #:when (odd? i) [j 2] #:when #t [k 2] #:break (= i 3)) + (list i j k))) +(test '((0 0) (0 1) (1 0) (1 1) (2 0)) 'outer-loop-final + (for*/list ([i 4][j 2] #:final (= i 2)) (list i j))) +(test '((0 0) (0 1) (1 0) (1 1) (2 0)) 'outer-loop-final + (for/list ([i 4] #:final (= i 2) [j 2]) (list i j))) + +(test '((0 0) (0 1) (1 0) (1 1)) 'break-and-final + (for*/list ([i 4][j 2] #:final (= i 2) #:break (= i 2)) (list i j))) + +(test '((0 0) (0 1) (1 0) (1 1)) 'break-and-final + (for*/list ([i 4][j 2] #:break (= i 2) #:final (= i 2)) (list i j))) + +(test '((0 1) (1 1)) 'skipped-final + (for*/list ([i 4][j 2] #:final (= i 2) #:unless (= j 0)) (list i j))) + +;; check #:break and #:final in body with exprs in between +(test (list 0 1) 'nested-body-break + (for/list ([i 4]) (define j (add1 i)) #:break (= j 3) i)) +(test (list 0 1 2) 'nested-body-final + (for/list ([i 4]) (define j (add1 i)) #:final (= j 3) i)) +(test '((0 0) (0 1) (1 0) (1 1)) 'nested-body-break-and-final + (for*/list ([i 4][j 2]) + (define k i) #:final (= k 2) + (define m i) #:break (= m 2) + (list i j))) +(test '((0 0) (0 1) (1 0) (1 1)) 'nested-body-break-and-final + (for*/list ([i 4][j 2]) + (define m i) #:break (= m 2) + (define k i) #:final (= k 2) + (list i j))) + (report-errs) </blockquote></div>