diff options
| author | Eric Blossom | 2010-11-07 13:33:16 -0800 |
|---|---|---|
| committer | Eric Blossom | 2010-11-10 12:17:57 -0800 |
| commit | 5a908ea900ac5f5f418eef71a7647ae540755df7 (patch) | |
| tree | 64585091973d6ccf586671cce5fa7de321e47d8f /gnuradio-core/src | |
| parent | 2f865632e7208dc748fe7f2b8003297730fc133d (diff) | |
| download | gnuradio-5a908ea900ac5f5f418eef71a7647ae540755df7.tar.gz gnuradio-5a908ea900ac5f5f418eef71a7647ae540755df7.tar.bz2 gnuradio-5a908ea900ac5f5f418eef71a7647ae540755df7.zip | |
fix syntax problem in test-assert
Diffstat (limited to 'gnuradio-core/src')
| -rw-r--r-- | gnuradio-core/src/guile/srfi/srfi-64.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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) |