diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm index d7c72946..447529ca 100644 --- a/lib/chibi/test.scm +++ b/lib/chibi/test.scm @@ -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