# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780632720 0
# Node ID 9ba3f17d6631ae0be96db976c8c3b3fa7517ebd6
# Parent  faecbbbcceb4eb3d0181746c8ee0f831216c6d73
(Fexecute_kbd_macro): Use type test macros.

diff -r faecbbbcceb4 -r 9ba3f17d6631 src/macros.c
--- a/src/macros.c	Tue Sep 27 02:24:00 1994 +0000
+++ b/src/macros.c	Tue Sep 27 02:25:20 1994 +0000
@@ -202,8 +202,7 @@
     repeat = XINT (prefixarg);
 
   final = indirect_function (macro);
-  if (XTYPE (final) != Lisp_String
-      && XTYPE (final) != Lisp_Vector)
+  if (!STRINGP (final) && !VECTORP (final))
     error ("Keyboard macros must be strings or vectors.");
 
   XFASTINT (tem) = executing_macro_index;
@@ -220,8 +219,8 @@
 
       QUIT;
     }
-  while (--repeat && (XTYPE (Vexecuting_macro) == Lisp_String
-		      || XTYPE (Vexecuting_macro) == Lisp_Vector));
+  while (--repeat
+	 && (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro)));
 
   UNGCPRO;
   return unbind_to (count, Qnil);