From 2406ac60110e1a675fbbd40cbac79292383db051 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 23 Feb 2010 08:50:34 +0000 Subject: [PATCH 1/2] Welcome to a new PLT day. svn: r18292 --- collects/repos-time-stamp/stamp.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/repos-time-stamp/stamp.ss b/collects/repos-time-stamp/stamp.ss index e1a9ab22ae..893593a75d 100644 --- a/collects/repos-time-stamp/stamp.ss +++ b/collects/repos-time-stamp/stamp.ss @@ -1 +1 @@ -#lang scheme/base (provide stamp) (define stamp "22feb2010") +#lang scheme/base (provide stamp) (define stamp "23feb2010") From 1c31d939d44bdb40efb071c3185ffc1bb5cb6081 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 23 Feb 2010 10:24:09 +0000 Subject: [PATCH 2/2] There's no check that frame isn't #f here, and this seems to be the root of the failure I was noticing whenever popup windows were triggered (e.g., hitting the backtrace button or trying to submit a bug report). svn: r18293 --- collects/drscheme/private/main.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drscheme/private/main.ss b/collects/drscheme/private/main.ss index 4db6510fa4..998285168a 100644 --- a/collects/drscheme/private/main.ss +++ b/collects/drscheme/private/main.ss @@ -564,7 +564,7 @@ (when frame (send frame next-tab))))]) (let ([frame (find-frame windows-menu)]) - (unless (= 1 (send frame get-tab-count)) + (unless (or (not frame) (= 1 (send frame get-tab-count))) (for ([i (in-range 0 (send frame get-tab-count))] #:when (< i 9)) (new menu-item%