/[guile]/guile/guile-core/scripts/scan-api
ViewVC logotype

Diff of /guile/guile-core/scripts/scan-api

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ttn, Wed May 8 12:49:37 2002 UTC revision 1.2 by ttn, Wed May 8 13:00:57 2002 UTC
# Line 189  exec ${GUILE-guile} -l $0 -c "(apply $ma Line 189  exec ${GUILE-guile} -l $0 -c "(apply $ma
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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26