From 79f880d7bbaa5f99f5cfa778c3475921e69e9c29 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 24 Oct 2001 04:30:26 +0000
Subject: [PATCH] ...

original commit: 24fe6a1fd8169dd676c1969846b08783f1edc98e
---
 collects/framework/private/group.ss | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss
index 03e9abe4..d66c5ea1 100644
--- a/collects/framework/private/group.ss
+++ b/collects/framework/private/group.ss
@@ -142,9 +142,8 @@
 
 	  [define frame-shown/hidden
 	    (lambda (frame)
-	      (let ([frame-frames (map frame-frame frames)])
-		(when (memq frame frame-frames)
-		  (update-windows-menus))))]
+	      (when (memq frame (map frame-frame frames))
+	        (update-windows-menus)))]
 	  
 	  [define for-each-frame
 	    (lambda (f)
@@ -244,13 +243,6 @@
 	  
           (super-instantiate ())))
       
-      (define (in-list? ele lst)
-	(let loop ([lst lst])
-	  (cond
-	    [(null? lst) #f]
-	    [else (or (eq? (car lst) ele)
-		      (loop (cdr lst)))])))
-
       (define (choose-a-frame parent)
         (letrec ([sorted-frames
                   (quicksort