Allowing test pattern (test 'value id) as an exception to the

expect/expr ordering check.
This commit is contained in:
Alex Shinn 2014-01-03 12:27:03 +09:00
parent 53826be6f9
commit 28e63c994a

View file

@ -51,11 +51,13 @@
;;> defaults to a printed summary of \var{expr}.
(define-syntax test
(syntax-rules ()
(syntax-rules (quote)
((test expect expr)
(test #f expect expr))
((test name expect (expr ...))
(test-propagate-info name expect (expr ...) ()))
((test name 'expect expr)
(test-propagate-info name 'expect expr ()))
((test name (expect ...) expr)
(test-syntax-error
'test