X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=file.c;h=7e53a41d90be6b737467aff3f2221205b08b7d91;hb=3c19449fe7c01cf5162c96b208d6ea365fa7b721;hp=ec01a2d08e8ce04b588342e2426427db787fb5d2;hpb=ef65b7aa8aa9801818dfe1de1f4a434719cc62e1;p=debian%2Fyforth

diff --git a/file.c b/file.c
index ec01a2d..7e53a41 100644
--- 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);
 }