find-versioned-module bugs

[Andy Wingo]

Hi Julian,

~/src/guile$ meta/guile
scheme@(guile-user)> (find-versioned-module "ice-9/" "q" '() %load-path )
$1 = "/opt/guile/share/guile/2.0/ice-9//q.scm"

scheme@(guile-user)> %load-path
$2 = ("/home/wingo/src/guile/guile-readline" "/home/wingo/src/guile"
"/home/wingo/src/guile/module" "/home/wingo/src/guile/module"
"/opt/guile/share/guile/2.0" "/opt/guile/share/guile/site"
"/opt/guile/share/guile")

As you see this function is preferring modules from the end of the
%load-path. In addition it has adds an unnecessary "/". Do you have time
to fix it? :)

Andy
-- 
http://wingolog.org/