fix paint-by-numbers path problem

This commit is contained in:
Matthew Flatt 2010-05-17 07:11:04 -06:00
parent 939af28a4c
commit f0e7e40465

View File

@ -16,7 +16,7 @@
[(_)
(with-syntax
([(unit-names ...)
(let ([probdir (collection-path "games" "paint-by-numbers") "problems"])
(let ([probdir (build-path (collection-path "games" "paint-by-numbers") "problems")])
(let loop ([files
(call-with-input-file (build-path probdir "directory")
read)])