From 28b695510b2b9ab428daded662d75759f292faef Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 21 Oct 2016 10:41:29 +0200 Subject: [PATCH] boot: support apply. * module/mes/loop-0.mes (eval-env): Add clause for apply-env. --- module/mes/loop-0.mes | 1 + 1 file changed, 1 insertion(+) 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))))