# HG changeset patch
# User jwe
# Date 811215585 0
# Node ID 3b77015d7f42173a043ed934bd6ae7ab092b3b07
# Parent  9ce9e4f1e5b5504c96ee3a826bccd7158acd6ba8
[project @ 1995-09-16 01:39:45 by jwe]

diff -r 9ce9e4f1e5b5 -r 3b77015d7f42 src/variables.cc
--- a/src/variables.cc	Sat Sep 16 01:18:28 1995 +0000
+++ b/src/variables.cc	Sat Sep 16 01:39:45 1995 +0000
@@ -258,8 +258,14 @@
 	    }
 	}
     }
-  else if (sr && sr->is_function ())
-    retval = 2.0;
+  else if (sr && sr->is_builtin_function ())
+    {
+      retval = 5.0;
+    }
+  else if (sr && sr->is_user_function ())
+    {
+      retval = 2.0;
+    }
   else
     {
       char *path = fcn_file_in_path (name);
@@ -270,9 +276,18 @@
 	}
       else
 	{
-	  struct stat buf;
-	  if (stat (name, &buf) == 0 && S_ISREG (buf.st_mode))
-	    retval = 2.0;
+	  path = oct_file_in_path (name);
+	  if (path)
+	    {
+	      delete [] path;
+	      retval = 3.0;
+	    }
+	  else
+	    {
+	      struct stat buf;
+	      if (stat (name, &buf) == 0 && S_ISREG (buf.st_mode))
+		retval = 2.0;
+	    }
 	}
     }