From 3e5752067ff3d30291ca2f6a5bb027565ebe21ea Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 01:11:24 +0000
Subject: (translate_id): Use type test macros.

---
 src/vmsfns.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/vmsfns.c')

diff --git a/src/vmsfns.c b/src/vmsfns.c
index 6a9c2b2b449..9c9269487f8 100644
--- a/src/vmsfns.c
+++ b/src/vmsfns.c
@@ -680,8 +680,8 @@ translate_id (pid, owner)
   int prcnam[2];
 
   if (NILP (pid)
-      || XTYPE (pid) == Lisp_String && XSTRING (pid)->size == 0
-      || XTYPE (pid) == Lisp_Int && XFASTINT (pid) == 0)
+      || STRINGP (pid) && XSTRING (pid)->size == 0
+      || INTEGERP (pid) && XFASTINT (pid) == 0)
     {
       code = owner ? JPI$_OWNER : JPI$_PID;
       status = lib$getjpi (&code, 0, 0, &id);
@@ -691,7 +691,7 @@ translate_id (pid, owner)
 	       vmserrstr (status));
       return (id);
     }
-  if (XTYPE (pid) == Lisp_Int)
+  if (INTEGERP (pid))
     return (XFASTINT (pid));
   CHECK_STRING (pid, 0);
   pid = Fupcase (pid);
-- 
cgit v1.2.1