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/lib.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'tests/gpgscm/lib.scm') diff --git a/tests/gpgscm/lib.scm b/tests/gpgscm/lib.scm index ed3d572c1..cafca8dd4 100644 --- a/tests/gpgscm/lib.scm +++ b/tests/gpgscm/lib.scm @@ -29,6 +29,18 @@ (assert #t) (assert (not #f)) +;; 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))) + (define (filter pred lst) (cond ((null? lst) '()) ((pred (car lst)) -- cgit v1.2.3