189 |
i)) |
i)) |
190 |
(format #t " (sofile . ~S)\n" sofile) |
(format #t " (sofile . ~S)\n" sofile) |
191 |
(format #t " ~A\n" |
(format #t " ~A\n" |
192 |
(cons 'groups (map (lambda (p) (get p 'name)) |
(cons 'groups (if grouping-hook |
193 |
(hook->list grouping-hook)))) |
(map (lambda (p) (get p 'name)) |
194 |
|
(hook->list grouping-hook)) |
195 |
|
'(Scheme C)))) |
196 |
(format #t ") ;; end of meta\n") |
(format #t ") ;; end of meta\n") |
197 |
(format #t "(interface\n") |
(format #t "(interface\n") |
198 |
(for-each (lambda (x) |
(for-each (lambda (x) |