[gnunet-scheme] 05/05: tests/utils: Allow changing fibers defaults in call-with-services/fibers.

[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 5d0474919dea5af667228b4975ac3726ed9b618c
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon Aug 22 22:16:32 2022 +0200

    tests/utils: Allow changing fibers defaults in call-with-services/fibers.
    
    Useful for tests coming later.
    
    * tests/utils.scm (call-with-services/fibers): Add rest argument.
---
 tests/utils.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/utils.scm b/tests/utils.scm
index bdad806..ac43e6f 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -152,8 +152,9 @@ the services and each tails is a list of a procedure 
accepting ports
                        %thread-table)
         (apply values results))))))
 
-(define (call-with-services/fibers service-alist proc)
-  (fibers:run-fibers (lambda () (call-with-services service-alist proc))))
+(define (call-with-services/fibers service-alist proc . rest)
+  (apply fibers:run-fibers
+        (lambda () (call-with-services service-alist proc)) rest))
 
 (define* (call-with-spawner* proc service-alist . args)
   (apply fibers:run-fibers

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