From a9aaabd38864bd2888f81413044767c736fb6323 Mon Sep 17 00:00:00 2001
From: Metaxal <laurent.orseau@gmail.com>
Date: Sat, 2 Sep 2017 10:14:44 +0100
Subject: [PATCH] use exact-nonnegative-integer for better backawrd
 compatibility.

---
 chaos/gui/utils.rkt | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/chaos/gui/utils.rkt b/chaos/gui/utils.rkt
index 87c8167..26a0d47 100644
--- a/chaos/gui/utils.rkt
+++ b/chaos/gui/utils.rkt
@@ -1,7 +1,7 @@
 #lang racket/gui
 (require racket/contract/base)
 
-(define nnint? nonnegative-integer?)
+(define nnint? exact-nonnegative-integer?)
 (provide
  (contract-out
   [get-mouse-x/y
@@ -104,12 +104,12 @@
 (module+ drracket
 
   (define n-displays (get-display-count))
-  #;(for/list ([d (in-range n-displays)])
+  (for/list ([d (in-range n-displays)])
     (define-values (x y)
       (get-display-left-top-inset #:monitor d))
     (define-values (w h)
       (get-display-size #:monitor d))
-    (vars->assoc d x y w h))
+    (list d x y w h))
   
   (define fr
     (new frame%
@@ -129,6 +129,6 @@
                 #:monitor monitor))
     (send fr set-label (format "~a, ~a(~a), ~a(~a)" monitor xx x yy y))
     (send fr move x y)
-    (sleep/yield 1 #;0.5))
+    (sleep/yield 0.25))
   )