diff options
Diffstat (limited to 'dev-scheme/gauche/files/gauche-0.9.3.3-file.util.patch')
| -rw-r--r-- | dev-scheme/gauche/files/gauche-0.9.3.3-file.util.patch | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/dev-scheme/gauche/files/gauche-0.9.3.3-file.util.patch b/dev-scheme/gauche/files/gauche-0.9.3.3-file.util.patch new file mode 100644 index 000000000000..1e4cd5d19521 --- /dev/null +++ b/dev-scheme/gauche/files/gauche-0.9.3.3-file.util.patch @@ -0,0 +1,21 @@ +commit 15fb279dccb83d66d7e866a0e6f4e3f9ff64fd8d +Author: Shiro Kawai <shiro@acm.org> +Date: Thu Nov 29 23:17:55 2012 -1000 + + Fix file.util test + + The current test may fail when a size of a directory happens to + 100. Patch from NIIBE Yutaka. + +--- a/ext/file/test.scm ++++ b/ext/file/test.scm +@@ -290,7 +290,8 @@ + (reverse + (directory-fold "test.out" + (^[path result] +- (if (= (file-size path) 100) ++ (if (and (file-is-regular? path) ++ (= (file-size path) 100)) + (cons path result) + result)) + '() |