[Tinyos-commits] CVS: tinyos-1.x/tos/lib/VM/languages/motlle/examples cnttoleds-recursive.ts, NONE, 1.1

[David Gay]

Update of /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/examples
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29043

Added Files:
	cnttoleds-recursive.ts 
Log Message:
a tail-recursive TinyScheme program


--- NEW FILE: cnttoleds-recursive.ts ---
;; The usual test application: count to the leds
;; This version relies on tail recursion
(define (ledcount i)
  (led (& i 7))
  (sleep 10)
  (ledcount (+ i 1)))
(ledcount 0)