From 165b5e8ae2c6f90667d8f396c860b62e2a9af1a1 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 13 Jun 2013 06:38:23 -0500
Subject: [PATCH] avoid printf

---
 collects/sgl/init.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/sgl/init.rkt b/collects/sgl/init.rkt
index b1e59487ad..1451f7a850 100644
--- a/collects/sgl/init.rkt
+++ b/collects/sgl/init.rkt
@@ -38,7 +38,7 @@
                       AGL_PIXEL_SIZE 32
                       AGL_OFFSCREEN
                       AGL_NONE))])
-      (and fmt
+      (when fmt
            (let ([d (aglCreateContext fmt #f)])
              (when d
                (void (aglSetCurrentContext d))))))))