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

original commit: f882fbeb24100d5c212d840e788111cb39a4687a
---
 collects/framework/private/group.ss | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss
index 6b1b1356..03e9abe4 100644
--- a/collects/framework/private/group.ss
+++ b/collects/framework/private/group.ss
@@ -137,13 +137,14 @@
 	  
 	  [define frame-label-changed
 	    (lambda (frame)
-	      (when (member frame (map frame-frame frames))
+	      (when (memq frame (map frame-frame frames))
 		(update-windows-menus)))]
 
 	  [define frame-shown/hidden
 	    (lambda (frame)
-	      (when (member frame (map frame-frame frames))
-		(update-windows-menus)))]
+	      (let ([frame-frames (map frame-frame frames)])
+		(when (memq frame frame-frames)
+		  (update-windows-menus))))]
 	  
 	  [define for-each-frame
 	    (lambda (f)
@@ -243,6 +244,13 @@
 	  
           (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