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() { varinit() {
/* initialize the string variables */ /* initialize the string variables */
register char *envstr ; register char *envstr ;
extern char em_dir[]; extern char *em_dir;
if ( envstr=getenv("ACKDIR") ) { if ( envstr=getenv("ACKDIR") ) {
setsvar(keeps(HOME),keeps(envstr)) ; em_dir = keeps(envstr);
} else {
setsvar(keeps(HOME),keeps(em_dir)) ;
} }
setsvar(keeps(HOME),em_dir) ;
setpvar(keeps(SRC),srcvar) ; setpvar(keeps(SRC),srcvar) ;
setpvar(keeps(SUFFIX),getsuffix) ; setpvar(keeps(SUFFIX),getsuffix) ;
} }

View file

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