From 7d8b11a4a6088e7a01bce209689c7efd2a057a75 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 11 Jun 2006 18:03:41 +0000 Subject: [PATCH] redundant begin removed svn: r3327 --- collects/drscheme/private/language-configuration.ss | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss index 954ad6a524..be726fdf8a 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.ss @@ -1051,12 +1051,11 @@ ;; the result indicates if the teachpacks changed #t if they did and #f if not (define (add-new-teachpack frame) (let ([lib-file - (begin - (parameterize ([finder:dialog-parent-parameter frame]) - (finder:get-file - teachpack-directory - (string-constant select-a-teachpack) - ".*\\.(ss|scm)$")))]) + (parameterize ([finder:dialog-parent-parameter frame]) + (finder:get-file + teachpack-directory + (string-constant select-a-teachpack) + ".*\\.(ss|scm)$"))]) (if lib-file (let* ([interactions-text (send frame get-interactions-text)] [tp-cache (send interactions-text get-user-teachpack-cache)]