mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

(Loading): In %load-hook, need to use set!, and describe #f.

Browse source
This commit is contained in:
Kevin Ryde 2005-01-14 23:55:07 +00:00
parent 4497bd2f81
commit 42ad91f742
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
doc/ref/api-evaluation.texi
View file

@ -451,19 +451,20 @@ will try each extension automatically.
@end deffn
@defvar %load-hook
A procedure to be run whenever @code{primitive-load} is called. If this
procedure is defined, it will be called with the filename argument that
was passed to @code{primitive-load}.
A procedure to be called @code{(%load-hook @var{filename})} whenever a
file is loaded, or @code{#f} for no such call. @code{%load-hook} is
used by all of the above loading functions (@code{load},
@code{load-path}, @code{primitive-load} and
@code{primitive-load-path}).
For example an application can set this to show what's loaded,
@example
(define %load-hook (lambda (file)
(display "Loading ")
(display file)
(write-line "...."))) @result{} undefined
(set! %load-hook (lambda (filename)
(format #t "Loading ~a ...\n" filename)))
(load-from-path "foo.scm")
@print{} Loading /usr/local/share/guile/site/foo.scm....
@print{} Loading /usr/local/share/guile/site/foo.scm ...
@end example
@end defvar
@deffn {Scheme Procedure} current-load-port