eval: disarm lambda.
[mes.git] / mes.mes
diff --git a/mes.mes b/mes.mes
index d17b99bc6068b56130f4c40bb356e16e39d28ac5..6abf69d5686abbbab681ced3aafc6effd01d23f2 100644 (file)
--- a/mes.mes
+++ b/mes.mes
    ((atom (car e))
     (cond
      ((eq (car e) 'quote) (cadr e))
+     ((eq (car e) 'lambda) e)
      ((eq (car e) 'unquote) (eval (cadr e) a))
      ((eq (car e) 'quasiquote) (eval-quasiquote (cadr e) a))
      ((eq (car e) 'cond) (evcon (cdr e) a))