Imported Debian patch 0.1beta-15

[debian/yforth] / file.c

diff --git a/file.c b/file.c
index ec01a2d08e8ce04b588342e2426427db787fb5d2..7e53a41d90be6b737467aff3f2221205b08b7d91 100644 (file)
--- a/file.c
+++ b/file.c
@@ -208,7 +208,7 @@ void _write_line() {
 /**************************************************************************/
 
 Cell truncate_file(FILE *f, UDCell cur, UDCell ud) {
-       if (cur == cur && fseek(f, ud, SEEK_SET)) return (errno);
+       if (fseek(f, ud, SEEK_SET)) return (errno);
        else return (0);
 }