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:
OGINO Masanori 2013-12-19 02:00:43 +09:00
parent fbe9bb7a38
commit ebda32d108
7 changed files with 24 additions and 1 deletions

View File

@ -1,3 +1,7 @@
(import (scheme base)
(scheme time)
(scheme write))
(define (time f)
(let ((start (current-jiffy)))
(f)

View File

@ -1,3 +1,6 @@
(import (scheme base)
(scheme write))
(begin
(define foo (lambda (a)

View File

@ -1,3 +1,6 @@
(import (scheme base)
(scheme write))
(define (print obj)
(write obj)
(newline)

View File

@ -1,3 +1,6 @@
(import (scheme base)
(scheme write))
(define (print obj)
(write obj)
(newline)

View File

@ -1,3 +1,6 @@
(import (scheme base)
(picrin macro))
(define-syntax aif
(ir-macro-transformer
(lambda (form inject cmp)

View File

@ -1,3 +1,6 @@
(import (scheme base)
(scheme write))
(define (print obj)
(write obj)
(newline)

View File

@ -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)