extra PROGRAMA

* module/mes/mes-0.mes:
This commit is contained in:
Jan Nieuwenhuizen 2016-10-29 09:32:58 +02:00
parent 0e1c969dab
commit 091203b3d0
1 changed files with 16 additions and 0 deletions

View File

@ -267,3 +267,19 @@
;;ignored
begin
((lambda (program)
(display "PROGRAM done program=")
;; (display "program=")
;; (display program)
;; (newline)
;;(eval (read-file (read-env a) a) a)
;;(apply-env eval (read-file (read-env a) a) a)
;;(loop-1 (read-file (read-env a) a) a)
(eval-expand program (current-module))
)
(read-file (read-env (current-module)) (current-module)))
;; boot into mes-0
(cache-invalidate-range (current-module) '())
()
;;ignored
begin