--- ray/src/common/caldefn.c	1991/10/28 09:47:19	1.20
+++ ray/src/common/caldefn.c	1992/08/10 16:20:43	2.3
@@ -335,30 +335,43 @@ varinsert(name)			/* get a link to a variable */
 char  *name;
 {
     register VARDEF  *vp;
-    LIBR  *libp;
     int  hv;
     
     if ((vp = varlookup(name)) != NULL) {
 	vp->nlinks++;
 	return(vp);
     }
+    vp = (VARDEF *)emalloc(sizeof(VARDEF));
 #ifdef  FUNCTION
-    libp = liblookup(name);
+    vp->lib = liblookup(name);
 #else
-    libp = NULL;
+    vp->lib = NULL;
 #endif
-    if (libp == NULL)			/* if name not in library */
+    if (vp->lib == NULL)		/* if name not in library */
 	name = qualname(name, 0);	/* use fully qualified version */
     hv = hash(name);
-    vp = (VARDEF *)emalloc(sizeof(VARDEF));
     vp->name = savestr(name);
     vp->nlinks = 1;
     vp->def = NULL;
-    vp->lib = libp;
     vp->next = hashtbl[hv];
     hashtbl[hv] = vp;
     return(vp);
 }
+
+
+#ifdef  FUNCTION
+libupdate(fn)			/* update library links */
+char  *fn;
+{
+    register int  i;
+    register VARDEF  *vp;
+					/* if fn is NULL then relink all */
+    for (i = 0; i < NHASH; i++)
+	for (vp = hashtbl[i]; vp != NULL; vp = vp->next)
+	    if (vp->lib != NULL || fn == NULL || !strcmp(fn, vp->name))
+		vp->lib = liblookup(vp->name);
+}
+#endif
 
 
 varfree(ln)				/* release link to variable */