X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/1fc3fc11ffea3b5c0b1844306244b3f4a52c1067..ccf7563fda3f16250212e6eef76319a317b863a5:/test-suite/tests/elisp-compiler.test

diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test
index ddfa80a9a..1e40dc040 100644
--- a/test-suite/tests/elisp-compiler.test
+++ b/test-suite/tests/elisp-compiler.test
@@ -36,7 +36,9 @@
                                 (compile 'exp #:from 'elisp #:to 'value))))
     ((_ (pass-if-exception test-name exc exp))
      (pass-if-exception test-name exc
-                        (compile 'exp #:from 'elisp #:to 'value)))))
+                        (compile 'exp #:from 'elisp #:to 'value)))
+    ((_ (expect-fail test-name exp))
+     #f)))
 
 (define-syntax with-test-prefix/compile
   (syntax-rules ()