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

updated test

Browse Source
This commit is contained in:
Ryan Culpepper 2010-08-31 17:15:36 -06:00
parent 6c42fe2766
commit bfb1eed2e9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/stxparse/test-exp.rkt
View File

@ -64,12 +64,12 @@
;; Splicing
(define-primitive-splicing-syntax-class (foo)
#:attrs (z x y)
#:attributes (z x y)
#:description "foo"
(lambda (stx fail)
(syntax-case stx ()
[(a b c . rest)
(list #'rest 3 #'a #'b #'c)]
(list 3 #'a #'b #'c)]
[_ (fail)])))
(tok (1 2 3 4) (f:foo 4)