fix intern_c_string_1

diff --git a/src/lread.c b/src/lread.c
index bedb3d57cb5937378b4f67a6343f80e59e1b50c3..ca7b29f690b01520f6b25e7c043837b52f10925a 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -4178,7 +4178,7 @@ intern_c_string_1 (const char *str, ptrdiff_t len)
 
   if (!SYMBOLP (tem))
     {
-      if NILP (Vpurify_flag)
+      if (NILP (Vpurify_flag))
        string = make_string (str, len);
       else
        string = make_pure_c_string (str, len);