From d29388060b1383fc34c9b4a07c17ba6e23b14a59 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Wed, 8 May 2002 13:00:57 +0000 Subject: [PATCH] (scan-api): Handle case where `grouping-hook' is #f. --- scripts/scan-api | 6 ++++-- 1 file 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)