elisp/mal/func.el

   1 (defun mal-func (ast params env fn &optional macrop meta)
   2   (vector 'func (vector ast params env fn macrop) meta))
   3
   4 (defun mal-func-ast (mal-func)
   5   (aref (aref mal-func 1) 0))
   6
   7 (defun mal-func-params (mal-func)
   8   (aref (aref mal-func 1) 1))
   9
  10 (defun mal-func-env (mal-func)
  11   (aref (aref mal-func 1) 2))
  12
  13 (defun mal-func-fn (mal-func)
  14   (aref (aref mal-func 1) 3))
  15
  16 (defun mal-func-macro-p (mal-func)
  17   (aref (aref mal-func 1) 4))
  18
  19 (provide 'mal/func)