From: Ahmet Artu Yildirim <ahmet@artulab.com>
Date: Sun, 13 Jun 2021 06:04:29 +0000 (-0700)
Subject: Add debug statements in rpc-stream-map-sum example
X-Git-Url: https://artulab.com/gitweb/?a=commitdiff_plain;h=d193afdd1139c8245b05c0e39ffcf159149c681f;p=guile-orca

Add debug statements in rpc-stream-map-sum example
---

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)