mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
6cafda8916
This restores third-party (ab)users of the Chibi macro system such as in https://gist.github.com/baguette/2632464, while allowing us to break those uses in more interesting ways. It also keeps the core slightly smaller (both in C and Scheme) and speeds up the macro expansion process.
56 lines
1.4 KiB
Scheme
56 lines
1.4 KiB
Scheme
(define-library (chibi syntax-case-test)
|
|
(export run-tests)
|
|
(import (except (chibi) define-syntax let-syntax letrec-syntax)
|
|
(chibi syntax-case)
|
|
(chibi test))
|
|
(begin
|
|
(define (run-tests)
|
|
(test-begin "syntax case")
|
|
|
|
(test "syntax constant list"
|
|
'(+ 1 2)
|
|
#'(+ 1 2))
|
|
|
|
(test "pattern variable"
|
|
'foo
|
|
(syntax-case 'foo ()
|
|
(x #'x)))
|
|
|
|
(test "syntax-case pair"
|
|
'(a b)
|
|
(syntax-case '(a . b) ()
|
|
((x . y) #'(x y))))
|
|
|
|
(test "syntax-case var"
|
|
'a
|
|
(syntax-case '(a . b) (b)
|
|
((b . y) #f)
|
|
((x . b) #'x)))
|
|
|
|
(test "syntax-case simple ellipsis"
|
|
'(a b c)
|
|
(syntax-case '(a b c) ()
|
|
((a ...) #'(a ...))))
|
|
|
|
(test "syntax-case ellipsis with tail"
|
|
'(a b x c)
|
|
(syntax-case '(a b c) ()
|
|
((a ... b) #'(a ... x b))))
|
|
|
|
(test "syntax-case ellipsis with dotted tail"
|
|
'(a b x c y d)
|
|
(syntax-case '(a b c . d) ()
|
|
((a ... b . c) #'(a ... x b y c))))
|
|
|
|
(test "syntax-case nested ellipsis"
|
|
'((a b) (d e) c f)
|
|
(syntax-case '((a b c) (d e f)) ()
|
|
(((x ... y) ...) #'((x ...) ... y ...))))
|
|
|
|
(test "with-ellipsis"
|
|
'((a b))
|
|
(with-ellipsis :::
|
|
(syntax-case '(a) ()
|
|
((... :::) #'((... b) :::)))))
|
|
|
|
(test-end))))
|