boot: fix ignored.

* module/mes/loop-0.mes: Wrap read-file in begin.
* module/mes/mes-0.mes: Remove ignored.

diff --git a/module/mes/loop-0.mes b/module/mes/loop-0.mes
index 6fbf654cb52b5fc14862ab7cbec2f11f3d7d8a6e..9e4b2fad513758ca69ce17f348fc32144b999820 100644 (file)
--- 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)
 ((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
               (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 2003d0f3f1ac926e58712c5bbda8f87a3544412c..7f67cbf7d92a19a151537922c8413b8174375378 100644 (file)
--- 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) '())
 ()
 ;; boot into loop-0
 (cache-invalidate-range (current-module) '())
 ()

-ignored