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

Manually constructed patch from Robby: fixes the executable problem.

Browse Source
This commit is contained in:
Eli Barzilay 2011-07-19 11:27:51 -04:00
parent 70fdc4ef90
commit f8c4f23b5c
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/lang/htdp-langs.rkt
View File

@ -475,16 +475,18 @@
;; Extract snip-related modules:
(let-values ([(snip-class-names data-class-names)
(extract-used-classes port)])
(define names (append snip-class-names data-class-names))
(list*
'(lib "wxme/read.ss")
'(lib "mred/mred.ss")
reader-module
(filter
values
(map (λ (x) (string->lib-path x #t))
(append
snip-class-names
data-class-names)))))
(append
(map (λ (x) (string->lib-path x #t))
names)
(map (λ (x) (string->lib-path x #f))
names)))))
;; Extract reader-related modules:
(begin
(file-position port 0)