diff options
author | Paul Smith <psmith@gnu.org> | 2012-01-29 16:30:12 +0000 |
---|---|---|
committer | Paul Smith <psmith@gnu.org> | 2012-01-29 16:30:12 +0000 |
commit | d6e1c6e6c5961b8e7dee7ff1fc7d1792ab0fb4f8 (patch) | |
tree | 0267dbb1a49fe4443167fca729d1945853f74d94 /gmk-default.scm | |
parent | aa07c063876a48afc9b0fe4d266cc4f3e9fe0051 (diff) | |
download | gunmake-d6e1c6e6c5961b8e7dee7ff1fc7d1792ab0fb4f8.tar.gz |
Guile portability
Don't support Guile 1.6 and use a portable test for printable strings.
Diffstat (limited to 'gmk-default.scm')
-rw-r--r-- | gmk-default.scm | 3 |
1 files changed, 1 insertions, 2 deletions
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)))) |