test: Resurrect running boot tests on Guile.
[mes.git] / scaffold / boot / 47-pass-if-eq.scm
index 5c5807dc97daa5f1e28476aed489fed7c842af2a..c9e53dd642ca97fd94fd7e0587efc19419e0f804 100644 (file)
@@ -26,7 +26,7 @@
   (list
    'begin
    (list core:display "test: ") (list core:display name)
   (list
    'begin
    (list core:display "test: ") (list core:display name)
-   (list result t)))
+   (list (quote result) t)))
 
 (define-macro (pass-if-eq name expect . body)
   (list 'pass-if name (list eq? expect (cons 'begin body))))
 
 (define-macro (pass-if-eq name expect . body)
   (list 'pass-if name (list eq? expect (cons 'begin body))))