diff options
author | Maxime Devos <maximedevos@telenet.be> | 2021-09-12 16:27:42 +0200 |
---|---|---|
committer | Maxime Devos <maximedevos@telenet.be> | 2021-09-21 12:21:05 +0200 |
commit | ee399e2cb0cf3c93c8aa4dbe2305f4db44580527 (patch) | |
tree | 4ce458639a75bc3fb5e01e233385802fe05fc6c4 /gnu/gnunet/nse | |
parent | aced6ce78aa61f4a675c4ab494174570f2ded5ea (diff) | |
download | gnunet-scheme-ee399e2cb0cf3c93c8aa4dbe2305f4db44580527.tar.gz gnunet-scheme-ee399e2cb0cf3c93c8aa4dbe2305f4db44580527.zip |
nse/client: Remove rest arguments.
For better error handling
* gnu/gnunet/nse/client.scm (connect): Remove 'rest'. Adjust call to
'reconnect'.
Diffstat (limited to 'gnu/gnunet/nse')
-rw-r--r-- | gnu/gnunet/nse/client.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/gnunet/nse/client.scm b/gnu/gnunet/nse/client.scm index 6f52a83..235460f 100644 --- a/gnu/gnunet/nse/client.scm +++ b/gnu/gnunet/nse/client.scm | |||
@@ -193,7 +193,7 @@ even if not connected. This is an idempotent operation." | |||
193 | (spawn request-close-handler)) | 193 | (spawn request-close-handler)) |
194 | 194 | ||
195 | (define* (connect config #:key updated connected disconnected | 195 | (define* (connect config #:key updated connected disconnected |
196 | (spawn spawn-fiber) #:rest rest) | 196 | (spawn spawn-fiber)) |
197 | "Connect to the NSE service in the background. | 197 | "Connect to the NSE service in the background. |
198 | 198 | ||
199 | When connected, the thunk @var{connected} is called and estimates | 199 | When connected, the thunk @var{connected} is called and estimates |
@@ -207,5 +207,7 @@ shortly after calling @var{disconnected}. | |||
207 | The procedures @var{updated}, @var{connected} and @var{disconnected} are optional." | 207 | The procedures @var{updated}, @var{connected} and @var{disconnected} are optional." |
208 | (define estimate/box (make-atomic-box #f)) | 208 | (define estimate/box (make-atomic-box #f)) |
209 | (define request-close-condition (make-condition)) | 209 | (define request-close-condition (make-condition)) |
210 | (apply reconnect estimate/box request-close-condition config rest) | 210 | (reconnect estimate/box request-close-condition config |
211 | #:updated updated #:connected connected #:disconnected disconnected | ||
212 | #:spawn spawn) | ||
211 | (%make-server estimate/box request-close-condition)))) | 213 | (%make-server estimate/box request-close-condition)))) |