; * src/data.c (Ftype_of): Update comment.

(cherry picked from commit 6de60f33ed5cc438e20400aee83e1e2032773811)

diff --git a/src/data.c b/src/data.c
index da507901b76a4d63439bc118511ed7848a3f579c..c87b53176182fb73a8f87c964126b4a07a330371 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -211,7 +211,7 @@ for example, (type-of 1) returns `integer'.  */)
       return Qcons;
 
     case Lisp_Vectorlike:
-      /* WARNING!!  Keep 'cl--typeof-types' in sync with this code!!  */
+      /* WARNING!!  Keep 'cl--type-hierarchy' in sync with this code!!  */
       switch (PSEUDOVECTOR_TYPE (XVECTOR (object)))
         {
         case PVEC_NORMAL_VECTOR: return Qvector;