From e65cbdecf0ca06b4e3911952bc8a58f7646f7f4b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 7 Aug 2012 13:03:45 -0500
Subject: [PATCH] Rackety

---
 collects/framework/private/frame.rkt | 49 ++++++++++++++--------------
 1 file changed, 24 insertions(+), 25 deletions(-)

diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt
index b731c40367..ff25eeb8eb 100644
--- a/collects/framework/private/frame.rkt
+++ b/collects/framework/private/frame.rkt
@@ -1436,31 +1436,30 @@
                   (when s
                     (send (current-ps-setup) copy-from s))))])))
     
-    (define/override edit-menu:between-select-all-and-find
-      (λ (edit-menu)
-        (let* ([c% (get-checkable-menu-item%)]
-               [on-demand
-                (λ (menu-item)
-                  (let ([edit (get-edit-target-object)])
-                    (if (and edit (is-a? edit editor<%>))
-                        (begin
-                          (send menu-item enable #t)
-                          (send menu-item check (send edit auto-wrap)))
-                        (begin 
-                          (send menu-item check #f)
-                          (send menu-item enable #f)))))]
-               [callback
-                (λ (item event)
-                  (let ([edit (get-edit-target-object)])
-                    (when (and edit
-                               (is-a? edit editor<%>))
-                      (let ([new-pref (not (send edit auto-wrap))])
-                        (preferences:set 'framework:auto-set-wrap? new-pref)
-                        (send edit auto-wrap new-pref)))))])
-          (make-object c% (string-constant wrap-text-item)
-            edit-menu callback #f #f on-demand))
-        
-        (make-object separator-menu-item% edit-menu)))
+    (define/override (edit-menu:between-select-all-and-find edit-menu)
+      (define c% (get-checkable-menu-item%))
+      (define (on-demand menu-item)
+        (define edit (get-edit-target-object))
+        (cond
+          [(and edit (is-a? edit editor<%>))
+           (send menu-item enable #t)
+           (send menu-item check (send edit auto-wrap))]
+          [else 
+           (send menu-item check #f)
+           (send menu-item enable #f)]))
+      (define (callback item event)
+        (define edit (get-edit-target-object))
+        (when (and edit
+                   (is-a? edit editor<%>))
+          (define new-pref (not (send edit auto-wrap)))
+          (preferences:set 'framework:auto-set-wrap? new-pref)
+          (send edit auto-wrap new-pref)))
+      (new c%
+           [label (string-constant wrap-text-item)]
+           [parent edit-menu]
+           [callback callback]
+           [demand-callback on-demand])
+      (make-object separator-menu-item% edit-menu))
     
     (define/override help-menu:about-callback 
       (λ (menu evt)