Browse files

Use `->string' instead of `symbol->string' in `test-egg', since some …

…dependencies may come as strings
  • Loading branch information...
1 parent b6b6b67 commit b126df2fd3a98498cfa2819f6f2d230b56531db4 @mario-goulart committed Oct 3, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 salmonella.scm
@@ -217,7 +217,7 @@
(let ((fetch-log (fetch-egg dep 'fetch-test-dep)))
(when (and (zero? (report-status fetch-log))
(directory-exists? ;; workaround for issue with chicken 4.5.0 and regex
- (make-pathname tmp-dir (symbol->string dep))))
+ (make-pathname tmp-dir (->string dep))))
(install-egg dep 'install-test-dep))))
(remove chicken-unit? (or test-deps '()))))
(let ((test-dir (make-pathname (if this-egg?

0 comments on commit b126df2

Please sign in to comment.