Corrects a small bug.
This commit is contained in:
parent
c40fcacfbc
commit
c294a124d8
|
@ -64,8 +64,8 @@
|
||||||
(define gnunet-yes 1)
|
(define gnunet-yes 1)
|
||||||
(define gnunet-no 0)
|
(define gnunet-no 0)
|
||||||
|
|
||||||
(define gnunet-util-ffi (dynamic-link "/usr/local/lib/libgnunetutil"))
|
(define gnunet-util-ffi (dynamic-link "libgnunetutil"))
|
||||||
(define gnunet-fs-ffi (dynamic-link "/usr/local/lib/libgnunetfs"))
|
(define gnunet-fs-ffi (dynamic-link "libgnunetfs"))
|
||||||
|
|
||||||
|
|
||||||
(define-syntax define-foreign-definer
|
(define-syntax define-foreign-definer
|
||||||
|
|
|
@ -85,9 +85,12 @@
|
||||||
(#:prerequisite-done . 32)))
|
(#:prerequisite-done . 32)))
|
||||||
|
|
||||||
(define (reason-list->number . reasons)
|
(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)
|
(fold (lambda (reason result)
|
||||||
(logand (assq-ref reasons-alist reason) result))
|
(logand (reason->number reason) result))
|
||||||
0 reasons-alist))
|
0 reasons))
|
||||||
|
|
||||||
(define (number->reason-list n)
|
(define (number->reason-list n)
|
||||||
(fold (lambda (reason result)
|
(fold (lambda (reason result)
|
||||||
|
|
Loading…
Reference in New Issue