lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove unused INITFILE config option

This commit is contained in:
Lassi Kortela 2019-08-09 20:11:02 +03:00
parent bb78dc0634
commit b5946dea77
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
c/flmain.c
View File

@ -43,9 +43,6 @@ int main(int argc, char *argv[])
fl_init(512 * 1024); fl_init(512 * 1024);
fname_buf[0] = '\0'; fname_buf[0] = '\0';
#ifdef INITFILE
strcat(fname_buf, INITFILE);
#else
value_t str = symbol_value(symbol("*install-dir*")); value_t str = symbol_value(symbol("*install-dir*"));
char *exedir = (str == UNBOUND ? NULL : cvalue_data(str)); char *exedir = (str == UNBOUND ? NULL : cvalue_data(str));
if (exedir != NULL) { if (exedir != NULL) {
@ -53,7 +50,6 @@ int main(int argc, char *argv[])
strcat(fname_buf, PATHSEPSTRING); strcat(fname_buf, PATHSEPSTRING);
} }
strcat(fname_buf, "flisp.boot"); strcat(fname_buf, "flisp.boot");
#endif
value_t args[2]; value_t args[2];
fl_gc_handle(&args[0]); fl_gc_handle(&args[0]);