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

added test for sequence syntax with keywords

Browse Source
This commit is contained in:
Ryan Culpepper 2013-03-29 23:04:49 -04:00
parent d71cc04c22
commit bace16a4ce
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/racket/for.rktl
View File

@ -364,4 +364,13 @@
(test '() 'in-empty-vector (let ([v (in-vector '#(1) 0 0)]) (for/list ([e v]) e))) (test '() 'in-empty-vector (let ([v (in-vector '#(1) 0 0)]) (for/list ([e v]) e)))
(test '(1) 'in-empty-vector (let ([v (in-vector '#(1) 0 1)]) (for/list ([e v]) e))) (test '(1) 'in-empty-vector (let ([v (in-vector '#(1) 0 1)]) (for/list ([e v]) e)))
(test '(1 2 3)
'sequence-syntax-with-keywords
(let ()
(define (in-X #:x seq) seq)
(for/list ([x (in-X #:x '(1 2 3))]) x)
;; => '(1 2 3)
(define-sequence-syntax in-X* (lambda () #'in-X) (lambda (stx) #f))
(for/list ([x (in-X* #:x '(1 2 3))]) x)))
(report-errs) (report-errs)