compat: Add exit codes for Mes.
* gash/compat.scm [mes] (EXIT_SUCCESS): New variable. [mes] (EXIT_FAILURE): New variable.
This commit is contained in:
parent
d088464510
commit
f5a4619c69
|
@ -101,7 +101,9 @@
|
||||||
input-port?
|
input-port?
|
||||||
output-port?
|
output-port?
|
||||||
call-with-input-string
|
call-with-input-string
|
||||||
thunk?)
|
thunk?
|
||||||
|
EXIT_SUCCESS
|
||||||
|
EXIT_FAILURE)
|
||||||
|
|
||||||
(define-macro (define-inlinable . rest)
|
(define-macro (define-inlinable . rest)
|
||||||
`(define ,@rest))
|
`(define ,@rest))
|
||||||
|
@ -186,4 +188,7 @@
|
||||||
(define (thunk? obj)
|
(define (thunk? obj)
|
||||||
(and (closure? obj)
|
(and (closure? obj)
|
||||||
(let ((args (cadr (core:cdr obj))))
|
(let ((args (cadr (core:cdr obj))))
|
||||||
(or (null? args) (symbol? args))))))
|
(or (null? args) (symbol? args)))))
|
||||||
|
|
||||||
|
(define EXIT_SUCCESS 0)
|
||||||
|
(define EXIT_FAILURE 1))
|
||||||
|
|
Loading…
Reference in New Issue