| lib | ||
| .gitignore | ||
| bltin.c | ||
| dat.h | ||
| eval.c | ||
| fn.h | ||
| gc.c | ||
| main.c | ||
| makefile | ||
| obj.c | ||
| parser.c | ||
| README.md | ||
| repl.c | ||
| str.c | ||
-
(define fac (lambda (n) (if (== n 0) 1 (* n (fac (+ n -1))))))
-
macro
(macro and (expr . rest)
(if rest (list 'if expr (cons 'and rest)) expr))
(and (== 1 1) (== 0 0) (if nil nil 1) (+ 100 100))
(and ())