From 69b5fd96c2712a5873d6ea62aa2c6b00ab83bb49 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 16 Mar 2018 12:56:14 -0700 Subject: [PATCH] x11/x11-base (guarantee-Time): Allow CurrentTime. --- src/x11/x11-base.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/x11/x11-base.scm b/src/x11/x11-base.scm index f30582fe5..c08085616 100644 --- a/src/x11/x11-base.scm +++ b/src/x11/x11-base.scm @@ -994,7 +994,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (guarantee exact-positive-integer? object operator)) (define-integrable (guarantee-Time object operator) - (guarantee exact-positive-integer? object operator)) + (guarantee exact-nonnegative-integer? object operator)) (define-integrable (guarantee-xvisual object operator) (if (not (and (alien? object) -- 2.25.1