(intern): Don't make a pure string here, since Fintern does that.

diff --git a/src/lread.c b/src/lread.c
index c6b5f89..1471147 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2033,10 +2033,7 @@ intern (str)
   tem = oblookup (obarray, str, len);
   if (SYMBOLP (tem))
     return tem;
-  return Fintern ((!NILP (Vpurify_flag)
-                  ? make_pure_string (str, len)
-                  : make_string (str, len)),
-                 obarray);
+  return Fintern (make_string (str, len), obarray);
 }
 
 /* Create an uninterned symbol with name STR.  */