From 506212408294ef65531bcdb68945cccb4e4eed57 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 5 Nov 2002 14:28:11 +0000 Subject: [PATCH] .. original commit: 9c267610a5adcf4dca194ae82895f0bfb0e3c4c9 --- collects/framework/private/group.ss | 2 +- collects/framework/private/main.ss | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss index a92a5227..ebe42746 100644 --- a/collects/framework/private/group.ss +++ b/collects/framework/private/group.ss @@ -134,7 +134,7 @@ (quicksort (get-frames) (lambda (x y) (string-ci<=? (send x get-label) (send y get-label))))]) - (let loop ([windows sorted] + (let loop ([windows (filter (lambda (x) (send x is-shown?)) sorted)] [prev (car (last-pair sorted))]) (cond [(null? windows) (void)] diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss index e3d511ee..ec4a1cd1 100644 --- a/collects/framework/private/main.ss +++ b/collects/framework/private/main.ss @@ -86,6 +86,7 @@ (for-each (lambda (x) (hash-table-put! hash-table x 'lambda)) '( + cases instantiate super-instantiate lambda let let* letrec recur match-lambda match-lambda*