From 3d487b72776f1f89ad280c84a637a535cee11ee5 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Wed, 30 Dec 2020 11:51:19 +0100
Subject: [PATCH] mes: boot-6: Do not redefine exit as quit.

* mes/module/mes/boot-6.mes (exit): Remove redefinition.
---
 mes/module/mes/boot-6.mes | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mes/module/mes/boot-6.mes b/mes/module/mes/boot-6.mes
index 0450ba39..17ae02d5 100644
--- a/mes/module/mes/boot-6.mes
+++ b/mes/module/mes/boot-6.mes
@@ -2005,10 +2005,14 @@
     (force-output cep)
     (throw 'abort key)))
 
+(define core:exit exit)
 (define (quit . args)
   (apply throw 'quit args))
 
-(define exit quit)
+;; FIXME: how does Guile exit 0?
+;; this gives
+;;    unhandled exception: error: (("option must be specified with argument:" "main"))
+;;(define exit quit)
 
 ;;(define has-shown-backtrace-hint? #f) Defined by scm_init_backtrace ()