add scheme apply, rename apply-> apply_env.
[mes.git] / mes.test
1 #! /bin/sh
2 mes=${1-./mes.scm}
3 echo 0 | $mes
4 echo 1 | $mes
5 #echo car | $mes "((0 1))"
6 echo "(car '(0 1))" | $mes
7 echo "(car (quote (0 1)))" | $mes
8 echo "(car '(0 1))" | $mes
9 #echo cdr | $mes "((0 1))"
10 echo "(cdr '(0 1))" | $mes
11 #echo cons | $mes "(0 1)"
12 echo "(cons 0 1)" | $mes
13 #echo "(lambda (x y) (cons x y))" | $mes "(0 1)"
14 echo "((lambda (x y) (cons x y)) 0 1)" | $mes
15 echo "((label fun (lambda (x) x)) 2 2)" | $mes
16 echo "(< 0 0)" | $mes
17 echo "(< 0 1)" | $mes
18 echo "((label fun\
19        (lambda (x) (cons x\
20                          (cond ((< 0 x) (fun (- x 1)))\
21                                (#t '())))))\
22        3)" | $mes
23 echo "'(0 . 1)" | $mes
24 echo "(cdr '(0 . 1))" | $mes