aharisu

diff --git test/list.scm test/list.scm
index b92343c..f0ff35e 100644
--- test/list.scm
+++ test/list.scm
@@ -84,8 +84,8 @@
 (test* "count" 3 (count even? '(3 1 4 1 5 9 2 6 5)))
 (test* "count" 3
        (count < '(1 2 4 8) '(2 4 6 8 10 12 14 16)))
-(test* "count" 2
-       (count < '(3 1 4 1) '#0=(1 10 . #0#)))

aharisu

(define c 3)

(define (add a)
  (print "before")
  (print (string-split "hoge huga" #\space))
  (let1 b 5
    (print (+ (mul a b) c)))
  (print "after"))

(define (mul a b)