diff --git a/mes/module/mes/boot-5.mes b/mes/module/mes/boot-5.mes index 44452682..1ee894c5 100644 --- a/mes/module/mes/boot-5.mes +++ b/mes/module/mes/boot-5.mes @@ -181,3 +181,7 @@ (mes-use-module (srfi srfi-9)) (mes-use-module (mes guile module)) +(top-main) +;; (top-load 0) +(primitive-load 0) +(primitive-load (open-input-string %main)) diff --git a/mes/module/mes/main.mes b/mes/module/mes/main.mes index cb72e4b9..333a5f25 100644 --- a/mes/module/mes/main.mes +++ b/mes/module/mes/main.mes @@ -107,9 +107,7 @@ General help using GNU software: (mes-use-module (mes repl)) (set-current-input-port 0) (repl)) - (else #t)) - (display "top\n") - (display "**********************load hack:\n")))) + (else #t))))) (define (top-load *undefined*) (primitive-load 0)