From 48f6c8b4c398b7ee18ee4292ae20d4f4c1dd3087 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Sun, 14 Nov 2010 12:25:23 -0800
Subject: Move true? from general_ctors.test to core.scm

---
 gnuradio-core/src/guile/gnuradio/core.scm        | 4 ++++
 gnuradio-core/src/guile/tests/general_ctors.test | 4 ----
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'gnuradio-core/src/guile')

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
-- 
cgit