diff options
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)))) |