shithub: femtolisp

Download patch

ref: 5039afcaaf87b258e7835184119f8e4e2cb96f15
parent: ab283cbf3a865048614eb4f790e3639f70b77f5d
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Tue Dec 24 12:25:41 EST 2024

flmain: close system image stream after it got loaded

--- a/flmain.c
+++ b/flmain.c
@@ -48,6 +48,7 @@
 	int r = 1;
 	FL_TRY_EXTERN{
 		if(fl_load_system_image(f) == 0){
+			ios_close(s);
 			fl_applyn(1, symbol_value(symbol("__start", false)), argv_list(argc, argv));
 			r = 0;
 		}