mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 10:07:45 +03:00
33 lines
958 B
EmacsLisp
33 lines
958 B
EmacsLisp
(defun mal-env (&optional outer binds exprs)
|
|
(let ((env (vector 'env (vector (make-hash-table :test 'eq) outer))))
|
|
(while binds
|
|
(let ((key (pop binds)))
|
|
(if (eq key '&)
|
|
(let ((key (pop binds))
|
|
(value (mal-list exprs)))
|
|
(mal-env-set env key value)
|
|
(setq binds nil
|
|
exprs nil))
|
|
(let ((value (pop exprs)))
|
|
(mal-env-set env key value)))))
|
|
env))
|
|
|
|
(defun mal-env-set (env key value)
|
|
(let ((data (aref (aref env 1) 0)))
|
|
(puthash key value data)))
|
|
|
|
(defun mal-env-find (env key)
|
|
(let* ((data (aref (aref env 1) 0))
|
|
(value (gethash key data)))
|
|
(if (not value)
|
|
(let ((outer (aref (aref env 1) 1)))
|
|
(when outer
|
|
(mal-env-find outer key)))
|
|
value)))
|
|
|
|
(defun mal-env-get (env key)
|
|
(let ((value (mal-env-find env key)))
|
|
(if (not value)
|
|
(error "'%s' not found" key)
|
|
value)))
|