From 13a7abdd69e54b0c2ef1b8dea96e267ecf6e412f Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Wed, 13 Jun 2018 21:34:14 +0900
Subject: [PATCH] Rename a function to avoid a clash with an em system call.

---
 lang/basic/lib/file.c  | 2 +-
 lang/basic/src/basic.g | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lang/basic/lib/file.c b/lang/basic/lib/file.c
index 3c558a82a..4e28af0b1 100644
--- 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 5c4f6978a..bd94cf458 100644
--- 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; }