summaryrefslogtreecommitdiff
path: root/scripts/scan-api
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>2002-05-11 19:45:27 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>2002-05-11 19:45:27 +0000
commit94a972ac3180a8ba9d0403215c83f566ac79ced1 (patch)
tree6e2818c62a0757f94f4017ca70c9aecb1310fde1 /scripts/scan-api
parent54352a34645535f6a624772c3936de7facaecac1 (diff)
downloadguile-94a972ac3180a8ba9d0403215c83f566ac79ced1.tar.gz
(scan-api): Fix bug: No longer omit `C' and `Scheme' in
groups in the presence of the grouper.
Diffstat (limited to 'scripts/scan-api')
-rwxr-xr-xscripts/scan-api9
1 files changed, 5 insertions, 4 deletions
diff --git a/scripts/scan-api b/scripts/scan-api
index c527505f7..7e26acdcb 100755
--- a/scripts/scan-api
+++ b/scripts/scan-api
@@ -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)