[gnunet-scheme] 183/324: tests/utils: Use a better hash function.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit a43fa4d2841115ad82a4c4b21860b99a0e1825ea
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat Aug 14 21:02:47 2021 +0200

    tests/utils: Use a better hash function.
    
    * tests/utils.scm (call-with-services): Use 'hash-key' and 'key=?'.
---
 tests/utils.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/tests/utils.scm b/tests/utils.scm
index 365fc40..1f711be 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -23,7 +23,7 @@
                #:select (bitwise-ior))
   #:use-module ((rnrs base) #:select (assert))
   #:use-module ((fibers) #:prefix #{fibers:}#)
-  #:autoload (gnu gnunet config db) (hash->configuration)
+  #:autoload (gnu gnunet config db) (hash->configuration hash-key key=?)
   #:export (conservative-gc? calls-in-tail-position?
                             call-with-services
                             call-with-services/fibers))
@@ -96,8 +96,7 @@ the services and each tails is a list of a procedure 
accepting ports
             (raise-exception e))
         thunk)))
     (values))
-  ;; The hash function isn't very efficient but is sufficient.
-  (define config-hash (rnrs:make-hashtable (const 0) equal?))
+  (define config-hash (rnrs:make-hashtable hash-key key=?))
   (call-with-temporary-directory
    (lambda (dir)
      (define (start-service key+value)

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.