* Bug 16679 fixed: get_function_path('acosh') yielded an error

[scilab.git] / scilab / modules / functions / macros / get_function_path.sci

diff --git a/scilab/modules/functions/macros/get_function_path.sci b/scilab/modules/functions/macros/get_function_path.sci
index 01814fb..7b0ee2a 100644 (file)
--- a/scilab/modules/functions/macros/get_function_path.sci
+++ b/scilab/modules/functions/macros/get_function_path.sci
@@ -11,7 +11,6 @@
 // and continues to be available under such terms.
 // For more information, see the COPYING file which you should have received
 // along with this program.
-// === LICENSE_END ===
 
 function path = get_function_path(name)
 
@@ -23,16 +22,16 @@ function path = get_function_path(name)
     end
 
     if type(name) <> 10 then
-        error(999,msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"get_function_path",1));
+        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"get_function_path",1));
     end
 
     if size(name,"*") <> 1 then
-        error(999,msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"get_function_path",1));
+        error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"get_function_path",1));
     end
 
     libname = whereis(name);
 
-    if libname <> [] then
+    if libname <> [] & libname <> "script" & type(evstr(name))==13 then
         for i = 1:size(libname,"*")
             [funcnames, pathlib] = libraryinfo(libname(i));
             path = [path ; fullfile(pathlib, name + ".sci")];