mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

(scan-api): Fix bug: No longer omit C' and Scheme' in

Browse source 
groups in the presence of the grouper.
This commit is contained in:
Thien-Thi Nguyen 2002-05-11 19:45:27 +00:00
parent 54352a3464
commit 94a972ac31
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
scripts/scan-api
View file

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