From 5f7ed5befe1599e8a90aac3ecc9af76a94e01f49 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 26 Feb 2002 13:02:17 +0000
Subject: [PATCH] Fixed bug in test for sync-file.

---
 scsh/test/file-system-tests.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/test/file-system-tests.scm b/scsh/test/file-system-tests.scm
index a07df7a..413f3c6 100644
--- a/scsh/test/file-system-tests.scm
+++ b/scsh/test/file-system-tests.scm
@@ -300,7 +300,7 @@
 			   (let ((res-2 (file-size fname)))
 			     (close port)
 			     (delete-filesys-object fname)
-			     (and (= 0 res-1) (> 0 res-2)))))))
+			     (and (= res-1 0) (> res-2 0)))))))
 	   "file")
 
 ;; --- truncate-file ---