Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 21:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

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

Browse source 
expect/expr ordering check.
This commit is contained in:
Alex Shinn 2014-01-03 12:27:03 +09:00
parent 53826be6f9
commit 28e63c994a
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/test.scm
View file

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