suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

redundant begin removed

Browse Source 
svn: r3327
This commit is contained in:
Eli Barzilay 2006-06-11 18:03:41 +00:00
parent 976489df84
commit 7d8b11a4a6
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drscheme/private/language-configuration.ss
View File

@ -1051,12 +1051,11 @@
;; the result indicates if the teachpacks changed #t if they did and #f if not ;; the result indicates if the teachpacks changed #t if they did and #f if not
(define (add-new-teachpack frame) (define (add-new-teachpack frame)
(let ([lib-file (let ([lib-file
(begin (parameterize ([finder:dialog-parent-parameter frame])
(parameterize ([finder:dialog-parent-parameter frame]) (finder:get-file
(finder:get-file teachpack-directory
teachpack-directory (string-constant select-a-teachpack)
(string-constant select-a-teachpack) ".*\\.(ss|scm)$"))])
".*\\.(ss|scm)$")))])
(if lib-file (if lib-file
(let* ([interactions-text (send frame get-interactions-text)] (let* ([interactions-text (send frame get-interactions-text)]
[tp-cache (send interactions-text get-user-teachpack-cache)] [tp-cache (send interactions-text get-user-teachpack-cache)]