Parent Directory | Revision Log | 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)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |