allow + in lisp functions to be compiled

diff --git a/src/comp.c b/src/comp.c
index 7de222b5b2bc4a0364f597b6b6324cea94db77b4..ede417c794f7c11a2906978776f33ec142526051 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -1540,7 +1540,8 @@ DEFUN ("native-compile", Fnative_compile, Snative_compile,
   char *c = c_f_name;
   while (*c)
     {
-      if (*c == '-')
+      if (*c == '-' ||
+         *c == '+')
        *c = '_';
       ++c;
     }