Author: ludo
Date: Fri Sep 10 11:50:06 2010
New Revision: 23712
URL: https://svn.nixos.org/websvn/nix/?rev=23712&sc=1
Log:
gnupdate: Update to new FFI.
* maintainers/scripts/gnu/gnupdate (pointer->procedure): New procedure.
Modified:
nixpkgs/trunk/maintainers/scripts/gnu/gnupdate
Modified: nixpkgs/trunk/maintainers/scripts/gnu/gnupdate
==============================================================================
--- nixpkgs/trunk/maintainers/scripts/gnu/gnupdate Fri Sep 10 10:56:44
2010 (r23711)
+++ nixpkgs/trunk/maintainers/scripts/gnu/gnupdate Fri Sep 10 11:50:06
2010 (r23712)
@@ -619,11 +619,17 @@
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))))
_______________________________________________
nix-commits mailing list
[email protected]
http://mail.cs.uu.nl/mailman/listinfo/nix-commits
