boot: support apply.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 21 Oct 2016 08:41:29 +0000 (10:41 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 21 Oct 2016 08:41:29 +0000 (10:41 +0200)
* module/mes/loop-0.mes (eval-env): Add clause for apply-env.

module/mes/loop-0.mes

index 67f17f9cde6d51d56c77944c1f7f714b03cb651d..dd406984933e1712ad8c8a1e3555dced9d39f521 100644 (file)
      ((eq? (car e) 'define) (env:define (cons (sexp:define e a) '()) a))
      ((eq? (car e) 'define-macro) (env:define (env:macro (sexp:define e a)) a))
      ((eq? (car e) 'set!) (set-env! (cadr e) (eval (caddr e) a) a))
+     ((eq? (car e) 'apply-env) (apply-env (eval (cadr e) a) (evlis-env (caddr e) a) a))
      ((eq? (car e) 'unquote) (eval (cadr e) a))
      ((eq? (car e) 'quasiquote) (eval-quasiquote (cadr e) (add-unquoters a)))
      (#t (apply-env (car e) (evlis-env (cdr e) a) a))))