(Fstring_equal, Fstring_lessp): Delete now-redundant XSETTYPE.

b2791413 · Karl Heuer · dfa21eaa · b2791413
Commit b2791413 authored Oct 04, 1994 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 4 deletions

src/fns.c src/fns.c +4 -4

No files found.
--- a/src/fns.c
+++ b/src/fns.c
@@ -134,9 +134,9 @@ Symbols are also allowed; their print names are used instead.")
     register Lisp_Object s1, s2;
 {
  if (SYMBOLP (s1))
-    XSETSTRING (s1, XSYMBOL (s1)->name), XSETTYPE (s1, Lisp_String);
+    XSETSTRING (s1, XSYMBOL (s1)->name);
  if (SYMBOLP (s2))
-    XSETSTRING (s2, XSYMBOL (s2)->name), XSETTYPE (s2, Lisp_String);
+    XSETSTRING (s2, XSYMBOL (s2)->name);
  CHECK_STRING (s1, 0);
  CHECK_STRING (s2, 1);

@@ -158,9 +158,9 @@ Symbols are also allowed; their print names are used instead.")
  register int end;

  if (SYMBOLP (s1))
-    XSETSTRING (s1, XSYMBOL (s1)->name), XSETTYPE (s1, Lisp_String);
+    XSETSTRING (s1, XSYMBOL (s1)->name);
  if (SYMBOLP (s2))
-    XSETSTRING (s2, XSYMBOL (s2)->name), XSETTYPE (s2, Lisp_String);
+    XSETSTRING (s2, XSYMBOL (s2)->name);
  CHECK_STRING (s1, 0);
  CHECK_STRING (s2, 1);