diff options
author | Lluís Batlle i Rossell <viric@vicerveza.homeunix.net> | 2010-09-17 19:10:21 +0000 |
---|---|---|
committer | Lluís Batlle i Rossell <viric@vicerveza.homeunix.net> | 2010-09-17 19:10:21 +0000 |
commit | 2c5de6132761328a58a89e6813eef856f0c606a9 (patch) | |
tree | b07fabdf24d8ea31fa839f7c8f913164751849eb /maintainers/scripts | |
parent | 28841f686c8c93d1974c39fcf39a2bc0be784dc4 (diff) | |
parent | 83bfd425349459898b1cf16330518c9a330b32ec (diff) | |
download | nixlib-2c5de6132761328a58a89e6813eef856f0c606a9.tar nixlib-2c5de6132761328a58a89e6813eef856f0c606a9.tar.gz nixlib-2c5de6132761328a58a89e6813eef856f0c606a9.tar.bz2 nixlib-2c5de6132761328a58a89e6813eef856f0c606a9.tar.lz nixlib-2c5de6132761328a58a89e6813eef856f0c606a9.tar.xz nixlib-2c5de6132761328a58a89e6813eef856f0c606a9.tar.zst nixlib-2c5de6132761328a58a89e6813eef856f0c606a9.zip |
Updating from trunk.
svn path=/nixpkgs/branches/stdenv-updates/; revision=23840
Diffstat (limited to 'maintainers/scripts')
-rwxr-xr-x | maintainers/scripts/gnu/gnupdate | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/maintainers/scripts/gnu/gnupdate b/maintainers/scripts/gnu/gnupdate index 3d14d0095a0a..d91f83052e3d 100755 --- a/maintainers/scripts/gnu/gnupdate +++ b/maintainers/scripts/gnu/gnupdate @@ -620,11 +620,17 @@ exec ${GUILE-guile} -L "$PWD" -l "$0" \ project message args) '()))) +(define pointer->procedure + ;; Compatibility hack for Guile up to 1.9.12 included. + (if (defined? 'pointer->procedure) + pointer->procedure + make-foreign-function)) + (define version-string>? (let ((strverscmp (let ((sym (or (dynamic-func "strverscmp" (dynamic-link)) (error "could not find `strverscmp' (from GNU libc)")))) - (make-foreign-function int sym (list '* '*))))) + (pointer->procedure int sym (list '* '*))))) (lambda (a b) (> (strverscmp (string->pointer a) (string->pointer b)) 0)))) |