x11/x11-base (guarantee-Time): Allow CurrentTime.
authorMatt Birkholz <matt@birchwood-abbey.net>
Fri, 16 Mar 2018 19:56:14 +0000 (12:56 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Fri, 16 Mar 2018 19:56:14 +0000 (12:56 -0700)
src/x11/x11-base.scm

index f30582fe5cdad1f8e506064bbb490a027d7951d5..c08085616ed2bf752b633fa9f34a8f1862f6224c 100644 (file)
@@ -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)