From 995c2935ba1a4114d7b534a801573f1646788ec1 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 11 Sep 2011 18:26:00 -0500
Subject: [PATCH] Rackety

original commit: 14441264efead613c7f21ce0ec6f486bdc81dc41
---
 collects/framework/collapsed-snipclass.rkt | 55 +++++++++++-----------
 1 file changed, 27 insertions(+), 28 deletions(-)

diff --git a/collects/framework/collapsed-snipclass.rkt b/collects/framework/collapsed-snipclass.rkt
index a796d3ec..0cb303cf 100644
--- a/collects/framework/collapsed-snipclass.rkt
+++ b/collects/framework/collapsed-snipclass.rkt
@@ -1,29 +1,28 @@
-(module collapsed-snipclass mzscheme
-  (require mred
-           mzlib/class
-           "private/collapsed-snipclass-helpers.rkt")
-  
-  (provide snip-class)
+#lang racket/base
+(require racket/gui/base
+         racket/class
+         "private/collapsed-snipclass-helpers.rkt")
 
-  (define simple-sexp-snip%
-    (class* snip% (readable-snip<%>)
-      (init-field left-bracket right-bracket saved-snips)
-      (define/public (read-special file line col pos)
-        (let ([text (make-object text%)])
-          (for-each
-           (λ (s) (send text insert (send s copy)
-                             (send text last-position)
-                             (send text last-position)))
-           saved-snips)
-	  (datum->syntax-object
-	   #f
-	   (read (open-input-text-editor text))
-	   (list file line col pos 1))))
-      (super-instantiate ())))
-  
-  (define sexp-snipclass% (make-sexp-snipclass% simple-sexp-snip%))
-  
-  (define snip-class (make-object sexp-snipclass%))
-  (send snip-class set-classname (format "~s" '(lib "collapsed-snipclass.ss" "framework")))
-  (send snip-class set-version 0)
-  (send (get-the-snip-class-list) add snip-class))
+(provide snip-class)
+
+(define simple-sexp-snip%
+  (class* snip% (readable-snip<%>)
+    (init-field left-bracket right-bracket saved-snips)
+    (define/public (read-special file line col pos)
+      (define text (make-object text%))
+      (for ([s (in-list saved-snips)])
+        (send text insert (send s copy)
+              (send text last-position)
+              (send text last-position)))
+      (datum->syntax
+       #f
+       (read (open-input-text-editor text))
+       (list file line col pos 1)))
+    (super-new)))
+
+(define sexp-snipclass% (make-sexp-snipclass% simple-sexp-snip%))
+
+(define snip-class (make-object sexp-snipclass%))
+(send snip-class set-classname (format "~s" '(lib "collapsed-snipclass.ss" "framework")))
+(send snip-class set-version 0)
+(send (get-the-snip-class-list) add snip-class)