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>
This commit is contained in:
parent
fbe9bb7a38
commit
ebda32d108
|
@ -1,3 +1,7 @@
|
|||
(import (scheme base)
|
||||
(scheme time)
|
||||
(scheme write))
|
||||
|
||||
(define (time f)
|
||||
(let ((start (current-jiffy)))
|
||||
(f)
|
||||
|
|
|
@ -1,3 +1,6 @@
|
|||
(import (scheme base)
|
||||
(scheme write))
|
||||
|
||||
(begin
|
||||
|
||||
(define foo (lambda (a)
|
||||
|
|
|
@ -1,3 +1,6 @@
|
|||
(import (scheme base)
|
||||
(scheme write))
|
||||
|
||||
(define (print obj)
|
||||
(write obj)
|
||||
(newline)
|
||||
|
|
|
@ -1,3 +1,6 @@
|
|||
(import (scheme base)
|
||||
(scheme write))
|
||||
|
||||
(define (print obj)
|
||||
(write obj)
|
||||
(newline)
|
||||
|
|
|
@ -1,3 +1,6 @@
|
|||
(import (scheme base)
|
||||
(picrin macro))
|
||||
|
||||
(define-syntax aif
|
||||
(ir-macro-transformer
|
||||
(lambda (form inject cmp)
|
||||
|
|
|
@ -1,3 +1,6 @@
|
|||
(import (scheme base)
|
||||
(scheme write))
|
||||
|
||||
(define (print obj)
|
||||
(write obj)
|
||||
(newline)
|
||||
|
|
|
@ -1,6 +1,10 @@
|
|||
(import (scheme base)
|
||||
(scheme write))
|
||||
|
||||
(define (sum k acc)
|
||||
(if (zero? k)
|
||||
acc
|
||||
(sum (- k 1) (+ k acc))))
|
||||
|
||||
(display (sum 1000 0))
|
||||
(write (sum 1000 0))
|
||||
(newline)
|
||||
|
|
Loading…
Reference in New Issue