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

test case for `for' repair

Browse Source 
Provided by Ryan to go with a85a71984d.
This commit is contained in:
Matthew Flatt 2013-02-08 10:14:45 +01:00
parent c19b8a4f7c
commit d73ae88220
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/racket/sequence.rktl
View File

@ -253,6 +253,14 @@
;; #\2 was read, but loop ended by `in-range' ;; #\2 was read, but loop ended by `in-range'
(test #\3 peek-char s))) (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) (report-errs)