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 | |
| parent | aa07c063876a48afc9b0fe4d266cc4f3e9fe0051 (diff) | |
| download | make-d6e1c6e6c5961b8e7dee7ff1fc7d1792ab0fb4f8.tar.gz | |
Guile portability
Don't support Guile 1.6 and use a portable test for printable strings.
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | gmk-default.scm | 3 |
2 files changed, 7 insertions, 2 deletions
@@ -1,3 +1,9 @@ +2012-01-29 Paul Smith <psmith@gnu.org> + + * gmk-default.scm (to-string-maybe): Use a more portable way to + test for unprintable characters. + * configure.in [GUILE]: Guile 1.6 doesn't have pkg-config + 2012-01-28 Eli Zaretskii <eliz@gnu.org> * config.h.W32.template: Update from config.h.in. 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)))) |