/[guile]/guile/guile-core/scripts/annotate-api-groupings
ViewVC logotype

Diff of /guile/guile-core/scripts/annotate-api-groupings

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

revision 1.1 by ttn, Mon May 6 20:37:54 2002 UTC revision 1.2 by ttn, Mon May 6 20:59:31 2002 UTC
# Line 82  exec ${GUILE-guile} -l $0 -c "(apply $ma Line 82  exec ${GUILE-guile} -l $0 -c "(apply $ma
82                    (add-hook! hook                    (add-hook! hook
83                               (if grok                               (if grok
84                                   (make-grok-hook name (cadr grok))                                   (make-grok-hook name (cadr grok))
85                                   (make-members-hook name members)))))                                   (make-members-hook name members))
86                                 #t)))      ; append
87                groupings)                groupings)
88      (for-each (lambda (x)      (for-each (lambda (x)
89                  (run-hook hook x))                  (run-hook hook 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