diff options
| author | Eric Blossom | 2010-11-14 12:25:23 -0800 |
|---|---|---|
| committer | Eric Blossom | 2010-11-14 12:25:23 -0800 |
| commit | 48f6c8b4c398b7ee18ee4292ae20d4f4c1dd3087 (patch) | |
| tree | 2b4349ad4a8bc52baa12e6735f0d1ac25e635a51 | |
| parent | e8d0dbbdfce26f6963dfe0a727faf9c9cc5baf75 (diff) | |
| download | gnuradio-48f6c8b4c398b7ee18ee4292ae20d4f4c1dd3087.tar.gz gnuradio-48f6c8b4c398b7ee18ee4292ae20d4f4c1dd3087.tar.bz2 gnuradio-48f6c8b4c398b7ee18ee4292ae20d4f4c1dd3087.zip | |
Move true? from general_ctors.test to core.scm
| -rw-r--r-- | gnuradio-core/src/guile/gnuradio/core.scm | 4 | ||||
| -rw-r--r-- | gnuradio-core/src/guile/tests/general_ctors.test | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/gnuradio-core/src/guile/gnuradio/core.scm b/gnuradio-core/src/guile/gnuradio/core.scm index f13a8fb60..b24d5afa9 100644 --- a/gnuradio-core/src/guile/gnuradio/core.scm +++ b/gnuradio-core/src/guile/gnuradio/core.scm @@ -17,3 +17,7 @@ (re-export-all '(gnuradio gnuradio_core_general)) (re-export-all '(gnuradio gnuradio_core_gengen)) (re-export-all '(gnuradio gnuradio_core_hier)) + +;;; Return #t if x is not #f +(define-public (true? x) + (and x #t)) diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test index 5cdff5c3f..75c0f0bd4 100644 --- a/gnuradio-core/src/guile/tests/general_ctors.test +++ b/gnuradio-core/src/guile/tests/general_ctors.test @@ -29,10 +29,6 @@ (use-modules (gnuradio core)) (use-modules (oop goops)) -;;; Return #t if x is not #f -(define (true? x) - (and x #t)) - ;;; Add test code for all constructors in these files ;;; ./general/gr_additive_scrambler_bb.h |