guile feature

* src/fns.c (syms_of_fns): Add `guile' to `features'.

diff --git a/src/fns.c b/src/fns.c
index 01a1ea7..afd63a7 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -4572,6 +4572,7 @@ syms_of_fns (void)
     doc: /* A list of symbols which are the features of the executing Emacs.
 Used by `featurep' and `require', and altered by `provide'.  */);
   Vfeatures = list1 (intern_c_string ("emacs"));
+  Vfeatures = Fcons (intern_c_string ("guile"), Vfeatures);
   DEFSYM (Qsubfeatures, "subfeatures");
   DEFSYM (Qfuncall, "funcall");