# HG changeset patch # User Arne Babenhauserheide # Date 1613074493 -3600 # Thu Feb 11 21:14:53 2021 +0100 # Node ID 26d261214acf117b26dd4fa4cce2e84093398cd3 # Parent 6f4b7d215ba42b8ecbfc3cf29e740a3ec1e544e9 fix: incomplete renaming diff --git a/eris/eris.w b/eris/eris.w --- a/eris/eris.w +++ b/eris/eris.w @@ -93,9 +93,10 @@ ;; TODO: Do I need this for a minimal implementation? define-syntax-rule : libsodium-constant-getter name . "Reference a libsodium constant by NAME; creates a procedure with zero arguments to get constants used in libsodium." - define func-pointer : libsodium-func name - define args : list ;; empty: no arguments - pointer->procedure size_t func-pointer args + let : + define func-pointer : libsodium-func name + define args : list ;; empty: no arguments + pointer->procedure size_t func-pointer args ;; The first tool we need from libsodium is hashing data define sodium-generichash @@ -323,10 +324,7 @@ ;; decode length by treating its address as number define unpadded-length : pointer-address : dereference-pointer *unpadded-length ;; interpret the changed memory region as bytevector. - pointer->bytevector padded-address unpadded-length - - - + pointer->bytevector *padded unpadded-length define : store-data-padded bv blocksize . "Store the bytevector BV to disk using the hash as filename,