diff --git a/src/getchar.c b/src/getchar.c
index 6d26d6d..686861a 100644
--- a/src/getchar.c
+++ b/src/getchar.c
@@ -1390,6 +1390,15 @@
 	--curscript;
 }
 
+#if defined(EXITFREE) || defined(PROTO)
+    void
+close_all_scripts()
+{
+    while (scriptin[0] != NULL)
+	closescript();
+}
+#endif
+
 #if defined(FEAT_INS_EXPAND) || defined(PROTO)
 /*
  * Return TRUE when reading keys from a script file.