From 4f41e3f79dc9e88a8fa40bc2c4814dd1683dbef5 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Tue, 31 Aug 2010 16:14:10 -0600
Subject: [PATCH] ported example from pretty-big to racket/gui (Why? sgl is in
 mr dist, pretty-big is in plt dist)

---
 collects/sgl/examples/gl-frame.rkt | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/collects/sgl/examples/gl-frame.rkt b/collects/sgl/examples/gl-frame.rkt
index ca2e8e7a5f..90ecd9f520 100644
--- a/collects/sgl/examples/gl-frame.rkt
+++ b/collects/sgl/examples/gl-frame.rkt
@@ -1,6 +1,5 @@
 ;; By Brendan Burns, with modifications by Scott Owens
-
-(module gl-frame lang/plt-pretty-big
+(module gl-frame racket/gui
   (require sgl/gl
            sgl/gl-vectors)
   (provide set-gl-draw-fn
@@ -110,7 +109,7 @@
       (letrec
           ([loop
             (lambda ()
-              (if (< i pixels)
+              (when (< i pixels)
                   (begin
                     (gl-vector-set! vec (* i  3) 
                                     (bytes-ref data (+ (* i 4) 1)))
@@ -147,6 +146,3 @@
     (lambda (ix)
       (gl-vector-ref *textures* ix)))
   )
-
-
-