diff src/symbols.c @ 3497:45671f160bd5

[xemacs-hg @ 2006-07-08 09:17:59 by aidan] Style change in subr-name.
author aidan
date Sat, 08 Jul 2006 09:18:01 +0000
parents b544987e2eca
children cdc2f70d4319
line wrap: on
line diff
--- a/src/symbols.c	Fri Jul 07 23:01:11 2006 +0000
+++ b/src/symbols.c	Sat Jul 08 09:18:01 2006 +0000
@@ -726,8 +726,8 @@
        (subr))
 {
   const char *name;
-  if (!SUBRP (subr))
-    wrong_type_argument (Qsubrp, subr);
+  CHECK_SUBR (subr);
+
   name = XSUBR (subr)->name;
   return make_string ((const Ibyte *)name, strlen (name));
 }