# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780628726 0
# Node ID c0eefdfd11f4a982f3b27c58ef3c2c052c427269
# Parent  6e44ddc40153dbb8df2c385e0b4dd3faf1e68fc6
(sys_subshell): Use type test macros.

diff -r 6e44ddc40153 -r c0eefdfd11f4 src/sysdep.c
--- a/src/sysdep.c	Tue Sep 27 01:16:02 1994 +0000
+++ b/src/sysdep.c	Tue Sep 27 01:18:46 1994 +0000
@@ -667,7 +667,7 @@
   if (XFASTINT (Fboundp (dir)) == XFASTINT (Qnil))
     goto xyzzy;
   dir = Fsymbol_value (dir);
-  if (XTYPE (dir) != Lisp_String)
+  if (!STRINGP (dir))
     goto xyzzy;
 
   dir = expand_and_dir_to_file (Funhandled_file_name_directory (dir), Qnil);