From 97212b5765dc2d2fc80dfe10a919c2d7bc199aba Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 29 Oct 2016 18:35:06 +0200 Subject: [PATCH] boot: fix ignored. * module/mes/loop-0.mes: Wrap read-file in begin. * module/mes/mes-0.mes: Remove ignored. --- module/mes/loop-0.mes | 2 +- module/mes/mes-0.mes | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/module/mes/loop-0.mes b/module/mes/loop-0.mes index 6fbf654c..9e4b2fad 100644 --- a/module/mes/loop-0.mes +++ b/module/mes/loop-0.mes @@ -37,7 +37,7 @@ ((label loop-0 (lambda (r e a) ;; (display "***LOOP-0*** ... e=") (display e) (newline) - (if (null? e) (eval (read-file (read-env a) a) a) + (if (null? e) (eval (cons 'begin (read-file-env (read-env a) a)) a) (if (atom? e) (loop-0 (eval e a) (read-env a) a) (if (eq? (car e) 'define) ((lambda (aa) ; env:define diff --git a/module/mes/mes-0.mes b/module/mes/mes-0.mes index 2003d0f3..7f67cbf7 100644 --- a/module/mes/mes-0.mes +++ b/module/mes/mes-0.mes @@ -189,4 +189,3 @@ ;; boot into loop-0 (cache-invalidate-range (current-module) '()) () -ignored