Fix `bytevector->nix-base32-string'.
authorLudovic Courtès <ludo@gnu.org>
Fri, 1 Jun 2012 21:29:55 +0000 (23:29 +0200)
committerLudovic Courtès <ludo@gnu.org>
Sun, 3 Jun 2012 20:39:26 +0000 (22:39 +0200)
commitf9c7080aa3acafc6fb15fa1b304670acfe114704
tree829e4d03cfdf500b722e5feb8a273847a1ebffe1
parentd0a92b7531274a71352c3620a77cbe81b18b7232
Fix `bytevector->nix-base32-string'.

* guix/utils.scm (bytevector-quintet-ref-right,
  bytevector-quintet-fold): New procedures.
  (bytevector-quintet-fold-right): Add `quintet-fold' parameter; use it
  instead of `bytevector-quintet-fold'.
  (bytevector->base32-string): Pass BYTEVECTOR-QUINTET-FOLD as the
  first parameter.
  (bytevector->nix-base32-string): Pass BYTEVECTOR-QUINTET-FOLD-RIGHT as
  the first parameter.

* tests/utils.scm ("sha256 & bytevector->nix-base32-string"): New test.
guix/utils.scm
tests/utils.scm