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

svn: r1589

Browse Source
This commit is contained in:
Kathy Gray 2005-12-12 04:30:30 +00:00
parent fedbf9e0c8
commit b21e637ec3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/profj/build-info.ss
View File

@ -1667,12 +1667,13 @@
(let ((k (if (eq? kind 'file) 'file-not-found 'directory-not-found))) (let ((k (if (eq? kind 'file) 'file-not-found 'directory-not-found)))
(raise-error k (raise-error k
(case kind (case kind
((file) (format "Required file ~a not found" (path->ext path))) ((file) (format "Required file ~a, for class or interface ~a, not found"
(string-append (path->ext path) ".java") (path->ext path)))
((dir) (format "Required directory ~a not found" (path->ext path)))) ((dir) (format "Required directory ~a not found" (path->ext path))))
k src)) k src))
(raise-error (string->symbol (car path)) (raise-error (string->symbol (car path))
(case kind (case kind
((file) (format "Class ~a is not known" (path->ext path))) ((file) (format "Class or interface ~a is not known" (path->ext path)))
((dir) (format "Directory to search, ~a, is not known" (path->ext path)))) ((dir) (format "Directory to search, ~a, is not known" (path->ext path))))
(string->symbol (car path)) (string->symbol (car path))
src))) src)))