From bace16a4ce2da5704d044f726a1e94f417fc81f5 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 29 Mar 2013 23:04:49 -0400 Subject: [PATCH] added test for sequence syntax with keywords --- collects/tests/racket/for.rktl | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/collects/tests/racket/for.rktl b/collects/tests/racket/for.rktl index 48ffa39d46..ec34868f08 100644 --- a/collects/tests/racket/for.rktl +++ b/collects/tests/racket/for.rktl @@ -364,4 +364,13 @@ (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 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)