# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780631242 0
# Node ID 0c3c25c2456e0977bf2b8c0ecf0eee88bf52dc7f
# Parent  3c4437496ebc2aa0122df821e76b847ca9e26398
(Finsert_string): Use type test macros.

diff -r 3c4437496ebc -r 0c3c25c2456e src/mocklisp.c
--- a/src/mocklisp.c	Tue Sep 27 01:59:38 1994 +0000
+++ b/src/mocklisp.c	Tue Sep 27 02:00:42 1994 +0000
@@ -210,9 +210,9 @@
     {
       tem = args[argnum];
     retry:
-      if (XTYPE (tem) == Lisp_Int)
+      if (INTEGERP (tem))
 	tem = Fnumber_to_string (tem);
-      if (XTYPE (tem) == Lisp_String)
+      if (STRINGP (tem))
 	insert1 (tem);
       else
 	{