mirrors/make
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/make.git synced 2024-12-28 07:48:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Guile portability

Browse source 
Don't support Guile 1.6 and use a portable test for printable strings.
This commit is contained in:
Paul Smith 2012-01-29 16:30:12 +00:00
parent aa07c06387
commit d6e1c6e6c5
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ChangeLog
View file

@ -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> 2012-01-28 Eli Zaretskii <eliz@gnu.org>
* config.h.W32.template: Update from config.h.in. * config.h.W32.template: Update from config.h.in.

3
gmk-default.scm
View file

@ -31,8 +31,7 @@
((char? x) ((char? x)
(string x)) (string x))
;; Printable string (no special characters) ;; Printable string (no special characters)
((and (string? x) ((and (string? x) (string-every char-set:printing x))
(eq? (string-length (string-delete x char-set:printing)) 0))
x) x)
;; No idea: fail ;; No idea: fail
(else (error "Unknown object:" x)))) (else (error "Unknown object:" x))))