204 |
i)) |
i)) |
205 |
(format #t " (sofile . ~S)\n" sofile) |
(format #t " (sofile . ~S)\n" sofile) |
206 |
(format #t " ~A\n" |
(format #t " ~A\n" |
207 |
(cons 'groups (if grouper |
(cons 'groups (append (if grouper |
208 |
(map (lambda (p) (get p 'name)) |
(map (lambda (p) (get p 'name)) |
209 |
(hook->list grouper)) |
(hook->list grouper)) |
210 |
'(Scheme C)))) |
'()) |
211 |
|
'(Scheme C)))) |
212 |
(format #t ") ;; end of meta\n") |
(format #t ") ;; end of meta\n") |
213 |
(format #t "(interface\n") |
(format #t "(interface\n") |
214 |
(for-each (lambda (x) |
(for-each (lambda (x) |