From d193afdd1139c8245b05c0e39ffcf159149c681f 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 --- README.md | 2 +- examples/rpc-stream-map-sum.scm | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/README.md b/README.md index 5579337..d92eb35 100644 --- a/README.md +++ b/README.md @@ -58,6 +58,6 @@ See `examples` directory for more examples. This project is licensed under the GNU Lesser General Public License - see the COPYING.LESSER file for details. -Please send comments on orca to **ahmetartu at gmail dot com** +Please send comments on orca to **ahmet@artulab.com** Copyright (C) 2020 Ahmet Artu Yildirim 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