From 265e718c6febdd22b997a8dc18fd20e8e8910f66 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 6 Jun 2007 23:21:43 +0000 Subject: [PATCH] fixed some bugs with teachpack installation svn: r6509 --- collects/lang/htdp-langs.ss | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss index 191e253ffd..a9f56b067e 100644 --- a/collects/lang/htdp-langs.ss +++ b/collects/lang/htdp-langs.ss @@ -758,7 +758,8 @@ (parameterize ([current-custodian nc]) (thread (λ () (with-handlers ((exn? (λ (x) (set! exn x)))) - (compile-file filename)))))]) + (parameterize ([read-accept-reader #t]) + (compile-file filename))))))]) (thread (λ () (thread-wait t) @@ -790,7 +791,10 @@ (define (update-user-installed-lb) (let ([files (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<=?))))