/[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.6 by ttn, Fri May 10 22:17:39 2002 UTC revision 1.7 by ttn, Sat May 11 19:45:27 2002 UTC
# Line 204  exec ${GUILE-guile} -l $0 -c "(apply $ma Line 204  exec ${GUILE-guile} -l $0 -c "(apply $ma
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)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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