andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

compat: Add 'exact-integer?' for Mes. 

* gash/compat.scm [mes] (exact-integer?): New procedure.
This commit is contained in:
Timothy Sample 2022-11-04 17:43:46 -06:00
parent f5a4619c69
commit 52e03d4d22
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gash/compat.scm
View File

@ -103,7 +103,8 @@
call-with-input-string call-with-input-string
thunk? thunk?
EXIT_SUCCESS EXIT_SUCCESS
EXIT_FAILURE) EXIT_FAILURE
exact-integer?)
(define-macro (define-inlinable . rest) (define-macro (define-inlinable . rest)
`(define ,@rest)) `(define ,@rest))
@ -191,4 +192,7 @@
(or (null? args) (symbol? args))))) (or (null? args) (symbol? args)))))
(define EXIT_SUCCESS 0) (define EXIT_SUCCESS 0)
(define EXIT_FAILURE 1)) (define EXIT_FAILURE 1)
;; Mes only has exact integers.
(define exact-integer? integer?))