From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 1 Jun 2018 21:41:05 +0000 (-0700)
Subject: x11: Allow CurrentTime.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~6^2~14
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f7b22ea6a5a59eb6b9866900d82fcb08b397b6ad;p=mit-scheme.git

x11: Allow CurrentTime.
---

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)