mes: boot-6: Do not redefine exit as quit.
* mes/module/mes/boot-6.mes (exit): Remove redefinition.
This commit is contained in:
parent
4c8f84da4c
commit
3d487b7277
|
@ -2005,10 +2005,14 @@
|
||||||
(force-output cep)
|
(force-output cep)
|
||||||
(throw 'abort key)))
|
(throw 'abort key)))
|
||||||
|
|
||||||
|
(define core:exit exit)
|
||||||
(define (quit . args)
|
(define (quit . args)
|
||||||
(apply throw '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 ()
|
;;(define has-shown-backtrace-hint? #f) Defined by scm_init_backtrace ()
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue