mirror of
https://github.com/NixOS/nixpkgs.git
synced 2025-07-13 21:50:33 +03:00
Updating from trunk.
svn path=/nixpkgs/branches/stdenv-updates/; revision=23840
This commit is contained in:
commit
2c5de61327
274 changed files with 8210 additions and 5384 deletions
|
@ -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))))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue