mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

(scan-api): Handle case where `grouping-hook' is #f.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2002-05-08 13:00:57 +00:00
parent 2b080aed49
commit d29388060b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
scripts/scan-api
View file

@ -189,8 +189,10 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
i))
(format #t " (sofile . ~S)\n" sofile)
(format #t " ~A\n"
(cons 'groups (map (lambda (p) (get p 'name))
(hook->list grouping-hook))))
(cons 'groups (if grouping-hook
(map (lambda (p) (get p 'name))
(hook->list grouping-hook))
'(Scheme C))))
(format #t ") ;; end of meta\n")
(format #t "(interface\n")
(for-each (lambda (x)