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

[Mark H Weaver]

Ludovic Courtès <address@hidden> writes:
>    ?: 0 [primitive-load-path "home/ludo/src/kanren-book/t/d/a.scm"]
>
> ERROR: In procedure primitive-load-path:
> ERROR: In procedure primitive-load-path: Unable to find file
> "home/ludo/src/kanren-book/t/d/a.scm" in load path

FYI, I'm unable to reproduce this on Guile 2.0.0.215-fb9cf.
Here's what I get:

address@hidden:~/guile-test$ mkdir t
address@hidden:~/guile-test$ cd t
address@hidden:~/guile-test/t$ touch a.scm
address@hidden:~/guile-test/t$ mkdir d
address@hidden:~/guile-test/t$ echo '(load "a.scm")' > d/b.scm
address@hidden:~/guile-test/t$ guile -l a.scm d/b.scm
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /home/mhw/guile-test/t/a.scm
;;; compiled 
/home/mhw/.cache/guile/ccache/2.0-LE-4-2.0/home/mhw/guile-test/t/a.scm.go
;;; compiling /home/mhw/guile-test/t/d/b.scm
;;; compiled 
/home/mhw/.cache/guile/ccache/2.0-LE-4-2.0/home/mhw/guile-test/t/d/b.scm.go
Backtrace:
In ice-9/boot-9.scm:
 170: 11 [catch #t #<catch-closure 603da0> ...]
In unknown file:
   ?: 10 [catch-closure]
In ice-9/boot-9.scm:
  62: 9 [call-with-prompt prompt0 ...]
In module/ice-9/eval.scm:
 389: 8 [eval # #]
In ice-9/boot-9.scm:
1918: 7 [save-module-excursion #<procedure 8bd700 at ice-9/boot-9.scm:3341:3 
()>]
3348: 6 [#<procedure 8bd700 at ice-9/boot-9.scm:3341:3 ()>]
In unknown file:
   ?: 5 [load-compiled/vm 
"/home/mhw/.cache/guile/ccache/2.0-LE-4-2.0/home/mhw/guile-test/t/d/b.scm.go"]
In ice-9/boot-9.scm:
1918: 4 [save-module-excursion #<procedure 928ee0 at ice-9/boot-9.scm:3341:3 
()>]
3348: 3 [#<procedure 928ee0 at ice-9/boot-9.scm:3341:3 ()>]
1190: 2 [%start-stack load-stack #<procedure 926770 at ice-9/boot-9.scm:3337:10 
()>]
1195: 1 [#<procedure 924738 ()>]
In unknown file:
   ?: 0 [primitive-load "/home/mhw/guile-test/t/d/a.scm"]

ERROR: In procedure primitive-load:
ERROR: In procedure open-file: No such file or directory: 
"/home/mhw/guile-test/t/d/a.scm"

    Best,
     Mark