guix
/
gnunet
mirror of git://git.savannah.gnu.org/guix/gnunet.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Corrects a small bug.

This commit is contained in:
Rémi Birot-Delrue 2015-07-03 00:00:48 +02:00
parent c40fcacfbc
commit c294a124d8
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/gnunet/common.scm
View File

@ -64,8 +64,8 @@
(define gnunet-yes 1)
(define gnunet-no 0)
(define gnunet-util-ffi (dynamic-link "/usr/local/lib/libgnunetutil"))
(define gnunet-fs-ffi (dynamic-link "/usr/local/lib/libgnunetfs"))
(define gnunet-util-ffi (dynamic-link "libgnunetutil"))
(define gnunet-fs-ffi (dynamic-link "libgnunetfs"))
(define-syntax define-foreign-definer

7
gnu/gnunet/scheduler.scm
View File

@ -85,9 +85,12 @@
(#:prerequisite-done . 32)))
(define (reason-list->number . reasons)
(define (reason->number r)
(or (assq-ref reasons-alist r)
(throw 'invalid-arg "reason->number" r)))
(fold (lambda (reason result)
(logand (assq-ref reasons-alist reason) result))
0 reasons-alist))
(logand (reason->number reason) result))
0 reasons))
(define (number->reason-list n)
(fold (lambda (reason result)