guile/guile-core/scripts generate-autoload

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Thien-Thi Nguyen <address@hidden>       01/07/22 04:08:18

Modified files:
        guile-core/scripts: generate-autoload 

Log message:
        (autoload-info): Also handle `defmacro-public' forms.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/generate-autoload.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text

Patches:
Index: guile/guile-core/scripts/generate-autoload
diff -u guile/guile-core/scripts/generate-autoload:1.4 
guile/guile-core/scripts/generate-autoload:1.5
--- guile/guile-core/scripts/generate-autoload:1.4      Sat Jul 14 02:40:10 2001
+++ guile/guile-core/scripts/generate-autoload  Sun Jul 22 04:08:18 2001
@@ -38,9 +38,10 @@
 ;;
 ;; 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
@@ -96,6 +97,13 @@
                 ((and (list? form)
                       (< 2 (length form))
                       (eq? 'define-public (car form))
+                      (symbol? (cadr form)))
+                 (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