Undo this change. Like I said on the list, it is wrong to poll the
environment variable every time it is accessed (especially given that there will be a command-line option for this). I'll commit a proper thing later tonight if I get to it. svn: r17122
This commit is contained in:
parent
b4a32ddc1c
commit
2fd3c23393
|
@ -81,11 +81,9 @@ by @scheme[kind], which must be one of the following:
|
|||
]}
|
||||
|
||||
@item{@indexed-scheme['addon-dir] --- a directory for installing PLT Scheme
|
||||
extensions. This directory is specified by the @indexed-envvar{PLTADDONDIR}
|
||||
environment variable. If the environment variable is undefined or not a legal
|
||||
path name, this directory defaults to @filepath{Library/PLT Scheme} in the
|
||||
user's home directory under Mac OS X and @scheme['pref-dir] otherwise. This
|
||||
directory might not exist.}
|
||||
extensions. It's the same as @scheme['pref-dir], except under Mac OS
|
||||
X, where it is @filepath{Library/PLT Scheme} in the user's home
|
||||
directory. This directory might not exist.}
|
||||
|
||||
@item{@indexed-scheme['doc-dir] --- the standard directory for
|
||||
storing the current user's documents. Under Unix, it's the same as
|
||||
|
|
|
@ -5768,19 +5768,6 @@ find_system_path(int argc, Scheme_Object **argv)
|
|||
|
||||
return CURRENT_WD();
|
||||
}
|
||||
|
||||
/* first option for addon_dir: PLTADDONDIR environment variable */
|
||||
if (which == id_addon_dir) {
|
||||
char* p;
|
||||
|
||||
if ((p = getenv("PLTADDONDIR"))) {
|
||||
p = scheme_expand_filename(p, -1, NULL, NULL, 0);
|
||||
if (p)
|
||||
return scheme_make_path(p);
|
||||
}
|
||||
|
||||
/* If PLTADDONDIR is undefined or malformed, fall through to default */
|
||||
}
|
||||
|
||||
{
|
||||
/* Everything else is in ~: */
|
||||
|
@ -5867,17 +5854,6 @@ find_system_path(int argc, Scheme_Object **argv)
|
|||
return CURRENT_WD();
|
||||
}
|
||||
|
||||
/* first option for addon_dir: PLTADDONDIR environment variable */
|
||||
if (which == id_addon_dir) {
|
||||
if ((p = getenv("PLTADDONDIR"))) {
|
||||
p = scheme_expand_filename(p, -1, NULL, NULL, 0);
|
||||
if (p)
|
||||
return scheme_make_path(p);
|
||||
}
|
||||
|
||||
/* If PLTADDONDIR is undefined or malformed, fall through to default */
|
||||
}
|
||||
|
||||
home = NULL;
|
||||
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue
Block a user