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