From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 21 Oct 2016 08:41:29 +0000 (+0200)
Subject: boot: support apply.
X-Git-Tag: v0.1~17
X-Git-Url: https://jxself.org/git/?p=mes.git;a=commitdiff_plain;h=28b695510b2b9ab428daded662d75759f292faef

boot: support apply.

* module/mes/loop-0.mes (eval-env): Add clause for apply-env.
---

diff --git a/module/mes/loop-0.mes b/module/mes/loop-0.mes
index 67f17f9c..dd406984 100644
--- a/module/mes/loop-0.mes
+++ b/module/mes/loop-0.mes
@@ -168,6 +168,7 @@
      ((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))))