X-Git-Url: https://www.artulab.com/gitweb/?p=guile-orca;a=blobdiff_plain;f=examples%2Frpc-stream-map-sum.scm;fp=examples%2Frpc-stream-map-sum.scm;h=6e33ec9362d6d41bce45220497c8f60971904455;hp=14ee84fba004cfbdabb9b3aad6b2c7fae3cb5a4d;hb=ed1c716ffa8d685c8931e21aebe9d0f2dd32c596;hpb=1ac86f624f00f0221ccc3f55611f2a3a86db0bc2

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)