Rename a function to avoid a clash with an em system call.

diff --git a/lang/basic/lib/file.c b/lang/basic/lib/file.c
index 3c558a8..4e28af0 100644 (file)
--- a/lang/basic/lib/file.c
+++ b/lang/basic/lib/file.c
@@ -123,7 +123,7 @@ int _ioeof(int channel)
        return (0);
 }
 
-void _close(void)
+void _closeall(void)
 {
        /* close all open files */
        int i;

diff --git a/lang/basic/src/basic.g b/lang/basic/src/basic.g
index 5c4f697..bd94cf4 100644 (file)
--- a/lang/basic/src/basic.g
+++ b/lang/basic/src/basic.g
@@ -207,7 +207,7 @@ clearstmt { int exp; }
        ;
 
 closestmt:     filelist                
-       |       /* empty */     { C_cal("_close"); }
+       |       /* empty */     { C_cal("_closeall"); }
        ;
 
 filelist { int intv; }