defsubr snarfing

* src/lisp.h (DEFUN): Use `SCM_SNARF_INIT' to generate a defsubr call.

diff --git a/src/lisp.h b/src/lisp.h
index d830cf4..0900c88 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2401,6 +2401,7 @@ CHECK_NUMBER_CDR (Lisp_Object x)
 #else  /* not _MSC_VER */
 #define DEFUN(lname, fnname, sname, minargs, maxargs, intspec, doc)    \
    SCM_SNARF_INIT (defsubr (&sname);)                                   \
+   Lisp_Object fnname DEFUN_ARGS_ ## maxargs ;                         \
    static struct Lisp_Subr alignas (GCALIGNMENT) sname =               \
    { { .self = NULL,                                                    \
        .size = PVEC_SUBR << PSEUDOVECTOR_AREA_BITS },                   \