From f03d6897be904da58cad76b4bd07729922b47616 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Wed, 19 Apr 2017 16:09:44 +0200 Subject: gpgscm: Move 'trace' and 'stringify'. * tests/gpgscm/tests.scm (trace, stringify): Move... * tests/gpgscm/lib.scm: ... here. Signed-off-by: Justus Winter --- tests/gpgscm/tests.scm | 12 ------------ 1 file changed, 12 deletions(-) (limited to 'tests/gpgscm/tests.scm') diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index 592b36f93..4107889b7 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -17,18 +17,6 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, see . -;; Trace displays and returns the given value. A debugging aid. -(define (trace x) - (display x) - (newline) - x) - -;; Stringification. -(define (stringify expression) - (let ((p (open-output-string))) - (write expression p) - (get-output-string p))) - ;; Reporting. (define (echo . msg) (for-each (lambda (x) (display x) (display " ")) msg) -- cgit v1.2.3