changeset 4104:23d7fde3d773

[xemacs-hg @ 2007-08-08 14:54:41 by aidan] Merge a bug fix from Sebastian Freundt's SXEmacs work.
author aidan
date Wed, 08 Aug 2007 14:54:43 +0000
parents b4f4e0cc90f1
children e91cf17f6ab7
files src/ChangeLog src/eval.c
diffstat 2 files changed, 15 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Tue Aug 07 23:09:22 2007 +0000
+++ b/src/ChangeLog	Wed Aug 08 14:54:43 2007 +0000
@@ -1,3 +1,12 @@
+2007-08-08  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* eval.c (Feval): Fix, stick with original error messages instead
+	of referring to the indirected function.
+
+	From Sebastian Freundt's mail
+	nhtfy9sitjf.fsf@muck.math.tu-berlin.de , Tue Jan 30 12:30:07 UTC
+	2007; complements 18005.16378.980760.860724@parhasard.net . 
+
 2007-07-31  Mike Sperber  <mike@xemacs.org>
 
 	* file-coding.c (undecided_convert): Kludge to prevent infinite
--- a/src/eval.c	Tue Aug 07 23:09:22 2007 +0000
+++ b/src/eval.c	Wed Aug 08 14:54:43 2007 +0000
@@ -3799,7 +3799,12 @@
 	  goto invalid_function;
 	}
     }
-  else /* ! (SUBRP (fun) || COMPILED_FUNCTIONP (fun) || CONSP (fun)) */
+  else if (UNBOUNDP (fun))
+    {
+      val = signal_void_function_error (original_fun);
+    }
+  else /* ! (SUBRP (fun) || COMPILED_FUNCTIONP (fun) || CONSP (fun)
+             UNBOUNDP (fun)) */
     {
     invalid_function:
       val = signal_invalid_function_error (fun);