141 |
|
|
142 |
|
|
143 |
|
funcfile(fname) /* set context, load file if necessary */ |
144 |
< |
char *fname; |
144 |
> |
register char *fname; |
145 |
|
{ |
146 |
|
extern char *setcontext(); |
147 |
|
static char initfile[] = INITFILE; |
163 |
|
loadfunc(initfile); |
164 |
|
initfile[0] = '\0'; |
165 |
|
} |
166 |
< |
setcontext(fname); |
167 |
< |
if (!vardefined(DEFVNAME)) { |
168 |
< |
loadfunc(fname); |
169 |
< |
varset(DEFVNAME, ':', 1.0); |
166 |
> |
if (fname[0] == '.' && fname[1] == '\0') |
167 |
> |
setcontext(""); /* "." means no file */ |
168 |
> |
else { |
169 |
> |
setcontext(fname); |
170 |
> |
if (!vardefined(DEFVNAME)) { |
171 |
> |
loadfunc(fname); |
172 |
> |
varset(DEFVNAME, ':', 1.0); |
173 |
> |
} |
174 |
|
} |
175 |
|
} |
176 |
|
|