# HG changeset patch
# User aidan
# Date 1152350281 0
# Node ID 45671f160bd52aa492fa0ae1ec925c2bbb42039a
# Parent  d08f0a2c8722ded0ec1a1314b4006c5b3150b3d8
[xemacs-hg @ 2006-07-08 09:17:59 by aidan]
Style change in subr-name.

diff -r d08f0a2c8722 -r 45671f160bd5 src/ChangeLog
--- a/src/ChangeLog	Fri Jul 07 23:01:11 2006 +0000
+++ b/src/ChangeLog	Sat Jul 08 09:18:01 2006 +0000
@@ -1,3 +1,9 @@
+2006-07-08  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* symbols.c (Fsubr_name):
+	Use the CHECK_SUBR macro instead of the GNU code's explicit if
+	statement.
+
 2006-07-08  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* charset.h:
diff -r d08f0a2c8722 -r 45671f160bd5 src/symbols.c
--- 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));
 }