Imported Upstream version 0.2.0+beta

[debian/yforth] / file.c

diff --git a/file.c b/file.c
index ec01a2d08e8ce04b588342e2426427db787fb5d2..bb1b50427ae59b16a283d2d61e718df9e8d602e2 100644 (file)
--- a/file.c
+++ b/file.c
@@ -1,8 +1,18 @@
-/* yForth? - Written by Luca Padovani (C) 1996/97
- * ------------------------------------------------------------------------
- * This software is FreeWare as long as it comes with this header in each
- * source file, anyway you can use it or any part of it whatever
- * you want. It comes without any warranty, so use it at your own risk.
+/* yForth? - A Forth interpreter written in ANSI C
+ * Copyright (C) 2012 Luca Padovani
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  * ------------------------------------------------------------------------
  * Module name: file.c
  * Abstract:    File word set
@@ -208,7 +218,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);
 }