Commits

carl douglas  committed 001a624

Refactor subscriber example. Use named let.

  • Participants
  • Parent commits 977330e

Comments (0)

Files changed (1)

File examples/subscriber.scm

 (redis-subscribe (last (command-line-arguments)))
 
 (define (run-loop thunk)
-  (let ((response (redis-read-response (*redis-in-port*))))
-     (thunk response))
-  (run-loop thunk))
+  (let loop ()
+     (thunk (redis-read-response (*redis-in-port*)))
+     (loop)))
 
 (run-loop 
   (lambda(r)