[bug #33165] `load' uses a wrong relative path

[Ludovic Courtès]

Follow-up Comment #2, bug #33165 (project guile):

I can reproduce it, and with an empty $GUILE_LOAD_PATH:

#v+
address@hidden:~/src/guile/bug33165]$ mkdir t

address@hidden:~/src/guile/bug33165]$ touch t/a.scm

address@hidden:~/src/guile/bug33165]$ mkdir t/d

address@hidden:~/src/guile/bug33165]$ echo '(load "a.scm")' > t/d/b.scm

address@hidden:~/src/guile/bug33165]$ ../meta/guile -l t/a.scm t/d/b.scm 
;;; note: source file /home/ludo/src/guile/bug33165/t/a.scm
;;;       newer than compiled
/home/ludo/src/guile/cache/guile/ccache/2.0-LE-8-2.0/home/ludo/src/guile/bug33165/t/a.scm.go
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /home/ludo/src/guile/bug33165/t/a.scm
;;; compiled
/home/ludo/src/guile/cache/guile/ccache/2.0-LE-8-2.0/home/ludo/src/guile/bug33165/t/a.scm.go
;;; note: source file /home/ludo/src/guile/bug33165/t/d/b.scm
;;;       newer than compiled
/home/ludo/src/guile/cache/guile/ccache/2.0-LE-8-2.0/home/ludo/src/guile/bug33165/t/d/b.scm.go
;;; compiling /home/ludo/src/guile/bug33165/t/d/b.scm
;;; compiled
/home/ludo/src/guile/cache/guile/ccache/2.0-LE-8-2.0/home/ludo/src/guile/bug33165/t/d/b.scm.go
Backtrace:
In module/ice-9/boot-9.scm:
 170: 11 [catch #t #<catch-closure eb6c20> ...]
In unknown file:
   ?: 10 [catch-closure]
In module/ice-9/boot-9.scm:
  62: 9 [call-with-prompt prompt0 ...]
In module/ice-9/eval.scm:
 389: 8 [eval # #]
In module/ice-9/boot-9.scm:
2103: 7 [save-module-excursion #<procedure 1431100 at
module/ice-9/boot-9.scm:3534:3 ()>]
3541: 6 [#<procedure 1431100 at module/ice-9/boot-9.scm:3534:3 ()>]
In unknown file:
   ?: 5 [load-compiled/vm
"/home/ludo/src/guile/cache/guile/ccache/2.0-LE-8-2.0/home/ludo/src/guile/bug33165/t/d/b.scm.go"]
In module/ice-9/boot-9.scm:
2103: 4 [save-module-excursion #<procedure 143f340 at
module/ice-9/boot-9.scm:3534:3 ()>]
3543: 3 [#<procedure 143f340 at module/ice-9/boot-9.scm:3534:3 ()>]
1375: 2 [%start-stack load-stack ...]
1380: 1 [#<procedure 143bf60 ()>]
In unknown file:
   ?: 0 [primitive-load-path "bug33165/t/d/a.scm"]

ERROR: In procedure primitive-load-path:
ERROR: In procedure primitive-load-path: Unable to find file
"bug33165/t/d/a.scm" in load path

address@hidden:~/src/guile/bug33165]$ ../meta/guile --version
guile (GNU Guile) 2.0.1.131-c245d
Copyright (C) 2011 Free Software Foundation, Inc.

License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

address@hidden:~/src/guile/bug33165]$ echo $GUILE_LOAD_COMPILED_PATH
$GUILE_LOAD_PATH
#v-

But here that's the uninstalled environment, which presumably has ~/src/guile
in its load path.  Still...

    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?33165>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/