From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 16 Mar 2018 19:56:14 +0000 (-0700)
Subject: x11/x11-base (guarantee-Time): Allow CurrentTime.
X-Git-Tag: mit-scheme-pucked-x11-0.2.2~39
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=69b5fd96c2712a5873d6ea62aa2c6b00ab83bb49;p=mit-scheme.git

x11/x11-base (guarantee-Time): Allow CurrentTime.
---

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)