summaryrefslogtreecommitdiff
path: root/dev-scheme/gauche/files/gauche-0.9.3.3-file.util.patch
diff options
context:
space:
mode:
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.patch21
1 files changed, 0 insertions, 21 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
deleted file mode 100644
index 1e4cd5d19521..000000000000
--- a/dev-scheme/gauche/files/gauche-0.9.3.3-file.util.patch
+++ /dev/null
@@ -1,21 +0,0 @@
-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))
- '()