subrp fix

diff --git a/src/data.c b/src/data.c
index 9fb276c..c3a04ee 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -471,7 +471,7 @@ DEFUN ("subrp", Fsubrp, Ssubrp, 1, 1, 0,
   (Lisp_Object object)
 {
   if (CONSP (object) && EQ (XCAR (object), Qspecial_operator))
-    object = XCDR (object);
+    return Qt;
   if (SCM_PRIMITIVE_P (object))
     return Qt;
   return Qnil;