Merge pull request #10 from omasanori/fix-import
Add (import ...) to etc/tak.scm and t/*.scm.
This commit is contained in:
commit
99c398e300
|
@ -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