%load-hook doc rot

[Kevin Ryde]

The docs for %load-hook show and suggest you should use "define" to
make a hook,

        (define %load-hook (lambda (file)
                             (display "Loading ")
                             (display file)
                             (write-line "....")))
        (load-from-path "/dev/null")

but that produces no output for me.  If I'm not mistaken it should be
set!, ever since user stuff went into the separate guile-user module
perhaps.



 -- Variable: %load-hook
     A procedure to be called `(%load-hook FILENAME)' whenever a file
     is loaded, or `#f' for no such call.  `%load-hook' is used by all
     of the above loading functions (`load', `load-path',
     `primitive-load' and `primitive-load-path').

     For example an application can set this to show what's loaded,

          (set! %load-hook (lambda (filename)
                             (format #t "Loading ~a ...\n" filename)))
          (load-from-path "foo.scm")
          -| Loading /usr/local/share/guile/site/foo.scm ...