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

add for/X tests for multi-loop break

Browse Source
This commit is contained in:
Stephen Chang 2013-09-08 01:48:42 -04:00
parent 672e909880
commit 060ffeb879
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
native-pkgs

@ -1 +1 @@
Subproject commit 5f391155f276da25df85081cf8c80a9760a404b0
Subproject commit f367c0c4b05b91401d68b0180b416d616b31720d

6
pkgs/racket-pkgs/racket-test/tests/racket/for.rktl
View File

@ -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)