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; }