conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
picrin/t/tailcall.scm

11 lines
157 B
Scheme
Raw Normal View History

Add (import ...) to etc/tak.scm and t/*.scm. Note that this commit only fixes 'unbound variable' errors. For now t/dynamic-wind.scm, t/exception.scm and t/ir-macro.scm seem buggy on my Linux (amd64) machine. Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
2013-12-18 12:00:43 -05:00
(import (scheme base)
(scheme write))
add t/tailcall.scm
2013-10-29 21:06:59 -04:00
(define (sum k acc)
(if (zero? k)
acc
(sum (- k 1) (+ k acc))))
Add (import ...) to etc/tak.scm and t/*.scm. Note that this commit only fixes 'unbound variable' errors. For now t/dynamic-wind.scm, t/exception.scm and t/ir-macro.scm seem buggy on my Linux (amd64) machine. Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
2013-12-18 12:00:43 -05:00
(write (sum 1000 0))
(newline)