%load-hook only used within primitive-load?

[nalaginrut <nalaginrut@gmail.com>]

hi all.
I found the manual said "%load-hook is used by all of the above loading
functions (load,load-path, primitive-load and primitive-load-path)".
But it seems only "primitive-load" according to it.
If I want to add a load-path before loading a file(assume foo.scm is
under "/tmp/foo"):
==========
(define add-new-path 
  (lambda (p) 
    (if 
     (call/cc (lambda (ret) 
		(for-each 
                  (lambda (x) 
                    (if (string=? x p) (ret #f))) %load-path) #t))
     (set! %load-path (cons p %load-path)))))
     ;; add new path without redundancy

(set! %load-hook (lambda (filename) (set! %load-path (add-new-path
"/tmp/foo"))))

(load-from-path "foo.scm")
==============
Then it's failed. This path-add operation didn't occur. %load-path is
untouched. But this will:
==============
(primitive-load "foo.scm") ;; will fail
(load-from-path "foo.scm") ;; success
==============
And I found %load-hook will only be used within primitive-load, even a
simple filename-print instance copied from manual. I think it's not
according to the manual.

My questions are:
[1] Is this accepted?
[2] I'm failed to find "load" procedure(well,I can find sym_load but no
further), anybody give me a hint?


-- 
GNU Powered it
GPL Protected it
GOD Blessed it

HFG - NalaGinrut

--hacker key--
v4sw7CUSMhw6ln6pr8OSFck4ma9u8MLSOFw3WDXGm7g/l8Li6e7t4TNGSb8AGORTDLMen6g6RASZOGCHPa28s1MIr4p-x hackerkey.com
---end key---