paint-by-numbers: fix path construction

Syntaxes of filesystem paths and module paths are not the same
under Windows.
This commit is contained in:
Matthew Flatt 2013-06-19 13:26:51 -06:00
parent 8f2b08d0f5
commit 4863ea1608

View File

@ -16,7 +16,7 @@
(let* ([prob-dir (collection-file-path "problems" "games" "paint-by-numbers")]
[files (call-with-input-file (build-path prob-dir "directory") read)])
(for/list ([file files] #:when (file-exists? (build-path prob-dir file)))
(define path-spec (path->string (build-path "problems" file)))
(define path-spec (string-append "problems" "/" file))
path-spec))])
#'(list (include unit-names) ...))]))