Bug 664316 - Searchpath separator required

Add constant SEARCHPATH-SEPARATOR (= G_SEARCHPATH_SEPARATOR_S).
This commit is contained in:
Michael Natterer 2011-11-18 09:39:03 +01:00
parent df3e43b71f
commit 262cc1c946

View file

@ -429,6 +429,12 @@ ts_init_constants (scheme *sc)
sc->vptr->mk_string (sc, G_DIR_SEPARATOR_S));
sc->vptr->setimmutable (symbol);
/* Define string constant for use in building search paths */
symbol = sc->vptr->mk_symbol (sc, "SEARCHPATH-SEPARATOR");
sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc->vptr->mk_string (sc, G_SEARCHPATH_SEPARATOR_S));
sc->vptr->setimmutable (symbol);
/* These constants are deprecated and will be removed at a later date. */
symbol = sc->vptr->mk_symbol (sc, "gimp-dir");
sc->vptr->scheme_define (sc, sc->global_env, symbol,