From ed1c716ffa8d685c8931e21aebe9d0f2dd32c596 Mon Sep 17 00:00:00 2001 From: Ahmet Artu Yildirim Date: Sat, 12 Jun 2021 23:04:29 -0700 Subject: [PATCH] Add debug statements in rpc-stream-map-sum example --- examples/rpc-stream-map-sum.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/examples/rpc-stream-map-sum.scm b/examples/rpc-stream-map-sum.scm index 14ee84f..6e33ec9 100755 --- a/examples/rpc-stream-map-sum.scm +++ b/examples/rpc-stream-map-sum.scm @@ -20,6 +20,8 @@ (define counter 0) (define (sum-all return a b) + (format #t "a: ~a b: ~a~%" a b) + (set! counter (1+ counter)) (if (> counter 4) (return) -- 2.20.1