From 00e29c3dfe8518665939d7d964e32ef0e7068d84 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] boot-module: do not redefine exit as quit.

* mes/module/mes/guile/module.mes (exit): Remove redefinition.
---
 mes/module/mes/guile/module.mes | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/mes/module/mes/guile/module.mes b/mes/module/mes/guile/module.mes
index 47e36ae7..bd10994c 100644
--- a/mes/module/mes/guile/module.mes
+++ b/mes/module/mes/guile/module.mes
@@ -2005,12 +2005,14 @@
     (force-output cep)
     (throw 'abort key)))
 
-;; FIXME: how does Guile exit 0?
 (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 ()