| 39 | 
  | 
        static long  lastrno = -1; | 
| 40 | 
  | 
                                        /* check to see if already set */ | 
| 41 | 
  | 
        if (m == fobj && r->rno == lastrno) | 
| 42 | 
< | 
                return; | 
| 42 | 
> | 
                return(0); | 
| 43 | 
  | 
                                        /* initialize if first call */ | 
| 44 | 
  | 
        if (initfile != NULL) { | 
| 45 | 
  | 
                loadfunc(initfile); | 
| 67 | 
  | 
                copystruct(&funcxf, bx); | 
| 68 | 
  | 
        lastrno = r->rno; | 
| 69 | 
  | 
        eclock++;               /* notify expression evaluator */ | 
| 70 | 
+ | 
        return(1); | 
| 71 | 
  | 
} | 
| 72 | 
  | 
 | 
| 73 | 
  | 
 | 
| 97 | 
  | 
                } | 
| 98 | 
  | 
                m->os = (char *)mxf; | 
| 99 | 
  | 
        } | 
| 100 | 
< | 
        setmap(m, r, mxf); | 
| 100 | 
< | 
        return; | 
| 100 | 
> | 
        return(setmap(m, r, mxf)); | 
| 101 | 
  | 
memerr: | 
| 102 | 
  | 
        error(SYSTEM, "out of memory in setfunc"); | 
| 103 | 
  | 
} |