diff options
author | Brian Templeton <bpt@hcoop.net> | 2010-06-23 19:40:03 -0400 |
---|---|---|
committer | Brian Templeton <bpt@hcoop.net> | 2010-08-13 16:35:51 -0400 |
commit | 3e74b2cc637ffdc12a9b407a2eb4f0366db049cc (patch) | |
tree | ab9ba45aed71800056b94719986f60f8a47dfe70 | |
parent | c55a2ddc1be02f7948b8c96b30439a411ec0bc4f (diff) | |
download | guile-3e74b2cc637ffdc12a9b407a2eb4f0366db049cc.tar.gz |
make `pass-if-equal' literal in `compile-test'
* test-suite/tests/elisp-compiler.test (compile-test): Add
`pass-if-equal' to the list of literal identifiers
-rw-r--r-- | test-suite/tests/elisp-compiler.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test index 61f0acd81..61b6f5f1d 100644 --- a/test-suite/tests/elisp-compiler.test +++ b/test-suite/tests/elisp-compiler.test @@ -26,7 +26,7 @@ ; Macros to handle the compilation conveniently. (define-syntax compile-test - (syntax-rules (pass-if pass-if-exception) + (syntax-rules (pass-if pass-if-equal pass-if-exception) ((_ (pass-if test-name exp)) (pass-if test-name (compile 'exp #:from 'elisp #:to 'value))) ((_ (pass-if test-name exp #:opts opts)) |