master a4a99405d00 8/8: Simplify position-symbol

[Paul Eggert]

branch: master
commit a4a99405d00b98aeb86040117402ed0e1f954833
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    Simplify position-symbol
    
    * src/data.c (Fposition_symbol): Simplify by calling Fbare_symbol
    rather than open-coding it.
---
 src/data.c | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/src/data.c b/src/data.c
index 530bb774171..f2f35fb355a 100644
--- a/src/data.c
+++ b/src/data.c
@@ -821,16 +821,9 @@ POS, the position, is either a fixnum or a symbol with 
position from which
 the position will be taken.  */)
      (register Lisp_Object sym, register Lisp_Object pos)
 {
-  Lisp_Object bare;
+  Lisp_Object bare = Fbare_symbol (sym);
   Lisp_Object position;
 
-  if (BARE_SYMBOL_P (sym))
-    bare = sym;
-  else if (SYMBOL_WITH_POS_P (sym))
-    bare = XSYMBOL_WITH_POS_SYM (sym);
-  else
-    wrong_type_argument (Qsymbolp, sym);
-
   if (FIXNUMP (pos))
     position = pos;
   else if (SYMBOL_WITH_POS_P (pos))