diff options
| author | Maxime Devos <maximedevos@telenet.be> | 2021-08-31 17:47:33 +0200 |
|---|---|---|
| committer | Maxime Devos <maximedevos@telenet.be> | 2021-09-21 12:20:54 +0200 |
| commit | a5fe3a366618c08193a614ab6d746f1edd077974 (patch) | |
| tree | 4331ba5649d5a243ed14e82feba255f6863344bd /tests | |
| parent | 43e03846524fc947f26ce857b1780f9bbc927d9a (diff) | |
| download | gnunet-scheme-a5fe3a366618c08193a614ab6d746f1edd077974.tar.gz gnunet-scheme-a5fe3a366618c08193a614ab6d746f1edd077974.zip | |
tests/mq: Use 'message-handler' macro.
* tests/mq.scm (mh): Use the 'message-handler' macro instead of the
corresponding procedure.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/mq.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/tests/mq.scm b/tests/mq.scm index ef94295..987dfa8 100644 --- a/tests/mq.scm +++ b/tests/mq.scm | |||
| @@ -513,11 +513,13 @@ with @code{x}." | |||
| 513 | (define mhv (vector-unfold (lambda (_) (make-parameter #f)) 4)) | 513 | (define mhv (vector-unfold (lambda (_) (make-parameter #f)) 4)) |
| 514 | (define mh (apply message-handlers | 514 | (define mh (apply message-handlers |
| 515 | (map (lambda (i) | 515 | (map (lambda (i) |
| 516 | (make-message-handler i (lambda (p) (p)) | 516 | (message-handler |
| 517 | (lambda _ | 517 | (type i) |
| 518 | (apply ((vector-ref mhv i)) _)) | 518 | ((interpose code) code) |
| 519 | (lambda _ | 519 | ((well-formed? slice) |
| 520 | (apply ((vector-ref mhp i)) _)))) | 520 | (((vector-ref mhv i)) slice)) |
| 521 | ((handle! slice) | ||
| 522 | (((vector-ref mhp i)) slice)))) | ||
| 521 | (iota (vector-length mhp))))) | 523 | (iota (vector-length mhp))))) |
| 522 | 524 | ||
| 523 | ;; FWIW, passing #f is not really allowed. | 525 | ;; FWIW, passing #f is not really allowed. |