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

fixed some bugs with teachpack installation

Browse Source 
svn: r6509
This commit is contained in:
Robby Findler 2007-06-06 23:21:43 +00:00
parent 597122b8b5
commit 265e718c6f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/lang/htdp-langs.ss
View File

@ -758,7 +758,8 @@
(parameterize ([current-custodian nc]) (parameterize ([current-custodian nc])
(thread (λ () (thread (λ ()
(with-handlers ((exn? (λ (x) (set! exn x)))) (with-handlers ((exn? (λ (x) (set! exn x))))
(compile-file filename)))))]) (parameterize ([read-accept-reader #t])
(compile-file filename))))))])
(thread (thread
(λ () (λ ()
(thread-wait t) (thread-wait t)
@ -790,7 +791,10 @@
(define (update-user-installed-lb) (define (update-user-installed-lb)
(let ([files (let ([files
(if (directory-exists? teachpack-installation-dir) (if (directory-exists? teachpack-installation-dir)
(map path->string (directory-list teachpack-installation-dir)) (map path->string
(filter
(λ (x) (file-exists? (build-path teachpack-installation-dir x)))
(directory-list teachpack-installation-dir)))
'())]) '())])
(send user-installed-lb set (sort files string<=?)))) (send user-installed-lb set (sort files string<=?))))