parent
0e1c969dab
commit
091203b3d0
|
@ -267,3 +267,19 @@
|
||||||
;;ignored
|
;;ignored
|
||||||
begin
|
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
|
||||||
|
|
Loading…
Reference in New Issue