boot: fix ignored.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 29 Oct 2016 16:35:06 +0000 (18:35 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 12 Dec 2016 19:33:49 +0000 (20:33 +0100)
* module/mes/loop-0.mes: Wrap read-file in begin.
* module/mes/mes-0.mes: Remove ignored.

module/mes/loop-0.mes
module/mes/mes-0.mes

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