mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 01:57:09 +03:00
18 lines
431 B
EmacsLisp
18 lines
431 B
EmacsLisp
(defun mal-func (ast params env fn &optional macrop meta)
|
|
(vector 'func (vector ast params env fn macrop) meta))
|
|
|
|
(defun mal-func-ast (mal-func)
|
|
(aref (aref mal-func 1) 0))
|
|
|
|
(defun mal-func-params (mal-func)
|
|
(aref (aref mal-func 1) 1))
|
|
|
|
(defun mal-func-env (mal-func)
|
|
(aref (aref mal-func 1) 2))
|
|
|
|
(defun mal-func-fn (mal-func)
|
|
(aref (aref mal-func 1) 3))
|
|
|
|
(defun mal-func-macro-p (mal-func)
|
|
(aref (aref mal-func 1) 4))
|