From 2417a54f114652bc0318e132a8edca27e6ae3f7c Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sun, 22 Jul 2001 11:03:47 +0000 Subject: [PATCH] (autoload-info): Also handle `defmacro-public' forms. --- scripts/generate-autoload | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/scripts/generate-autoload b/scripts/generate-autoload index eef2b88c5..83fa1f3f2 100755 --- a/scripts/generate-autoload +++ b/scripts/generate-autoload @@ -38,9 +38,10 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" ;; ;; For each file, a symbol triggers an autoload if it is found in one ;; of these situations: -;; - in the `:export' clause of a `define-module' form; -;; - in a top-level `export' or `export-syntax' form; -;; - in a `define-public' form. +;; - in the `:export' clause of a `define-module' form +;; - in a top-level `export' or `export-syntax' form +;; - in a `define-public' form +;; - in a `defmacro-public' form ;; ;; The module name is inferred from the `define-module' form. If either the ;; module name or the exports list cannot be determined, no autoload entry is @@ -100,6 +101,13 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (loop (read p) module-name (cons (cadr form) exports))) + ((and (list? form) + (< 3 (length form)) + (eq? 'defmacro-public (car form)) + (symbol? (cadr form))) + (loop (read p) + module-name + (cons (cadr form) exports))) (else (loop (read p) module-name exports))))))) (define (generate-autoload . args)