rem: GERB_MESSAGE("Didin't find init.scm.\n");
add: GERB_MESSAGE("Didn't find init.scm.\n");
context: read_project_file(char *filename){    struct stat stat_info;    scheme *sc;    FILE *fd;    char *initdirs[] = {BACKEND_DIR, screen.execpath, ".", 			"$GERBV_SCHEMEINIT", NULL};    char *initfile;    if (stat(filename, &stat_info)) {	GERB_MESSAGE("Failed to read %s\n", filename);	return NULL;    }    if (!S_ISREG(stat_info.st_mode)) {	GERB_MESSAGE("Failed to read %s\n", filename);	return NULL;    }    sc = scheme_init_new();    scheme_set_output_port_file(sc, stdout);    if(!sc){	GERB_FATAL_ERROR("Couldn't init scheme\n");	exit(1);    }    initfile = gerb_find_file("init.scm", initdirs);    if (initfile == NULL) {	GERB_MESSAGE("Didin't find init.scm.\n");	return NULL;    }    if ((fd = fopen(initfile, "r")) == NULL) {	GERB_FATAL_ERROR("Couldn't open %s\n", initfile);	exit(1);    }    sc->vptr->load_file(sc, fd);    fclose(fd);    sc->vptr->scheme_define(sc, sc->global_env, 			    sc->vptr->mk_symbol(sc, "define-layer!"),			    sc->vptr->mk_foreign_func(sc, define_layer));    if ((fd = fopen(filename, "r")) == NULL) {	GERB_MESSAGE("Couldn't open project file %s\n", filename);	return(NULL);    }    plist_top = NULL;    scheme_load_file(sc, fd);    fclose(fd);    scheme_deinit(sc);    return plist_top;} /* read_project */