(casify_object): Use type test macros.

1994-09-27 03:10:02 +00:00
parent 1d80f4daee
commit 9d05e3d4c4
1 changed files with 2 additions and 2 deletions
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -36,7 +36,7 @@ casify_object (flag, obj)

  while (1)
    {
-      if (XTYPE (obj) == Lisp_Int)
+      if (INTEGERP (obj))
 	{
 	  c = XINT (obj);
 	  if (c >= 0 && c <= 0400)
@@ -48,7 +48,7 @@ casify_object (flag, obj)
 	    }
 	  return obj;
 	}
-      if (XTYPE (obj) == Lisp_String)
+      if (STRINGP (obj))
 	{
 	  obj = Fcopy_sequence (obj);
 	  len = XSTRING (obj)->size;