# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865039427 0
# Node ID b985b9739bebd7dac455d432f8934f277ad934e5
# Parent  506b35a4537e48d25aaccb36d6c584701fdebbb3
(intern): Don't make a pure string here, since Fintern does that.

diff -r 506b35a4537e -r b985b9739beb src/lread.c
--- a/src/lread.c	Sat May 31 00:34:13 1997 +0000
+++ b/src/lread.c	Sat May 31 00:43:47 1997 +0000
@@ -2033,10 +2033,7 @@
   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.  */