summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>2002-05-08 13:00:57 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>2002-05-08 13:00:57 +0000
commitd29388060b1383fc34c9b4a07c17ba6e23b14a59 (patch)
treee762f258e05b37df30c4dd1b3af5d95bdcf53734 /scripts
parent2b080aed49ed163dda81d1c8454d77db86a19975 (diff)
downloadguile-d29388060b1383fc34c9b4a07c17ba6e23b14a59.tar.gz
(scan-api): Handle case where `grouping-hook' is #f.
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/scan-api6
1 files changed, 4 insertions, 2 deletions
diff --git a/scripts/scan-api b/scripts/scan-api
index d345790b2..241f45f77 100755
--- a/scripts/scan-api
+++ b/scripts/scan-api
@@ -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)