chialisp 0.5.0

tools for working with chialisp language; compiler, repl, python and wasm bindings
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

(
    (defmacro ifc ARGS
        (defun list-length (lst)
            (if (l lst)
                (+ 1 (list-length (r lst)))
                0
            )
        )
        (defun do-continued-if (ARGS)
            (if (= (list-length ARGS) 3)
                (qq (i (unquote (f ARGS)) (com (unquote (f (r ARGS)))) (com (unquote (f (r (r ARGS)))))))
                (qq (i (unquote (f ARGS)) (com (unquote (f (r ARGS)))) (unquote (do-continued-if (r (r ARGS))))))
            )
        )
        (qq (a (unquote (do-continued-if ARGS)) @))
    )
)