From d6e1c6e6c5961b8e7dee7ff1fc7d1792ab0fb4f8 Mon Sep 17 00:00:00 2001
From: Paul Smith <psmith@gnu.org>
Date: Sun, 29 Jan 2012 16:30:12 +0000
Subject: Guile portability Don't support Guile 1.6 and use a portable test for
 printable strings.

---
 gmk-default.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'gmk-default.scm')

diff --git a/gmk-default.scm b/gmk-default.scm
index b9161c4..9aca54a 100644
--- a/gmk-default.scm
+++ b/gmk-default.scm
@@ -31,8 +31,7 @@
    ((char? x)
     (string x))
    ;; Printable string (no special characters)
-   ((and (string? x)
-         (eq? (string-length (string-delete x char-set:printing)) 0))
+   ((and (string? x) (string-every char-set:printing x))
     x)
    ;; No idea: fail
    (else (error "Unknown object:" x))))
-- 
cgit v1.2.3