Merge pull request #10 from omasanori/fix-import

Add (import ...) to etc/tak.scm and t/*.scm.
This commit is contained in:
Yuichi Nishiwaki 2014-01-04 23:22:09 -08:00
commit 99c398e300
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)