diff --git a/native-pkgs b/native-pkgs index 5f391155f2..f367c0c4b0 160000 --- a/native-pkgs +++ b/native-pkgs @@ -1 +1 @@ -Subproject commit 5f391155f276da25df85081cf8c80a9760a404b0 +Subproject commit f367c0c4b05b91401d68b0180b416d616b31720d diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl index c10eb75260..7695fdcd43 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl @@ -383,4 +383,10 @@ (define-sequence-syntax in-X* (lambda () #'in-X) (lambda (stx) #f)) (for/list ([x (in-X* #:x '(1 2 3))]) x))) +(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))) + (report-errs)