From d73ae88220c866416aea29c1e0d7b5a14be301cd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 8 Feb 2013 10:14:45 +0100 Subject: [PATCH] test case for `for' repair Provided by Ryan to go with a85a71984d. --- collects/tests/racket/sequence.rktl | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/tests/racket/sequence.rktl b/collects/tests/racket/sequence.rktl index 5e6009bda4..030554ce5a 100644 --- a/collects/tests/racket/sequence.rktl +++ b/collects/tests/racket/sequence.rktl @@ -253,6 +253,14 @@ ;; #\2 was read, but loop ended by `in-range' (test #\3 peek-char s))) +;; ---------------------------------------- +;; Check sequence constructors with keywords + +(define (in-X #:x seq) seq) +(test '(1 2 3) 'kw-seq (for/list ([x (in-X #:x '(1 2 3))]) x)) +(define-sequence-syntax in-X* (lambda () #'in-X) (lambda (stx) #f)) +(test '(1 2 3) 'kw-seq (for/list ([x (in-X* #:x '(1 2 3))]) x)) + ;; ---------------------------------------- (report-errs)