From 43fd3cfe2329b216137d75c1034963de62744d99 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 17 Nov 2019 09:57:30 +0100
Subject: [PATCH] cleanups

---
 mes/module/mes/boot-5.mes | 4 ++++
 mes/module/mes/main.mes   | 4 +---
 2 files changed, 5 insertions(+), 3 deletions(-)

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: <http://gnu.org/gethelp/>
              (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)