diff options
| -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 |