From 5a908ea900ac5f5f418eef71a7647ae540755df7 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Sun, 7 Nov 2010 13:33:16 -0800
Subject: fix syntax problem in test-assert

---
 gnuradio-core/src/guile/srfi/srfi-64.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'gnuradio-core/src')

diff --git a/gnuradio-core/src/guile/srfi/srfi-64.scm b/gnuradio-core/src/guile/srfi/srfi-64.scm
index 4ad9ccbab..8d61b14a8 100644
--- a/gnuradio-core/src/guile/srfi/srfi-64.scm
+++ b/gnuradio-core/src/guile/srfi/srfi-64.scm
@@ -850,11 +850,11 @@
   (define-syntax test-error
     (syntax-rules ()
       ((test-error name etype expr)
-       (test-assert name (%test-error etype expr)))
+       (test-assert name (%test-error (test-runner-get) etype expr)))
       ((test-error etype expr)
-       (test-assert (%test-error etype expr)))
+       (test-assert (%test-error (test-runner-get) etype expr)))
       ((test-error expr)
-       (test-assert (%test-error #t expr)))))))
+       (test-assert (%test-error (test-runner-get) #t expr)))))))
 
 (define (test-apply first . rest)
   (if (test-runner? first)
-- 
cgit