From f7b22ea6a5a59eb6b9866900d82fcb08b397b6ad Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 1 Jun 2018 14:41:05 -0700 Subject: [PATCH] x11: 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 1fbf6a5ce..4e712ac63 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