Bug fix: also use ACKDIR to look for description files

This commit is contained in:
ceriel 1990-01-18 16:07:42 +00:00
parent 531f9b1f77
commit b2f85981ad
2 changed files with 4 additions and 7 deletions

View file

@ -121,13 +121,12 @@ char *getsuffix() {
varinit() {
/* initialize the string variables */
register char *envstr ;
extern char em_dir[];
extern char *em_dir;
if ( envstr=getenv("ACKDIR") ) {
setsvar(keeps(HOME),keeps(envstr)) ;
} else {
setsvar(keeps(HOME),keeps(em_dir)) ;
em_dir = keeps(envstr);
}
setsvar(keeps(HOME),em_dir) ;
setpvar(keeps(SRC),srcvar) ;
setpvar(keeps(SUFFIX),getsuffix) ;
}

View file

@ -260,9 +260,7 @@ static int incore ;
static growstring rline ;
static FILE *infile ;
static char *inptr ;
char em_dir[100] = EM_DIR; /* this way it is easier to
* patch ...
*/
char *em_dir = EM_DIR;
open_in(name) register char *name ; {
register dmach *cmac ;