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

[Ludovic Courtès]

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

                 Summary: `load' uses a wrong relative path
                 Project: Guile
            Submitted by: civodul
            Submitted on: Tue 26 Apr 2011 01:20:16 PM GMT
                Category: None
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any

    _______________________________________________________

Details:

Hello!

Consider this session:

#v+
$ mkdir t

$ cd t

t$ touch a.scm

t$ mkdir d

t$ echo '(load "a.scm")' > d/b.scm

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/ludo/src/kanren-book/t/a.scm
;;; compiled
/home/ludo/.cache/guile/ccache/2.0-LE-8-2.0/home/ludo/src/kanren-book/t/a.scm.go
;;; compiling /home/ludo/src/kanren-book/t/d/b.scm
;;; compiled
/home/ludo/.cache/guile/ccache/2.0-LE-8-2.0/home/ludo/src/kanren-book/t/d/b.scm.go
Backtrace:

[...]

   ?: 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
#v-

The relative path computed by `load' above is broken.  Adding a leading `/'
would fix it.

Ludo'.




    _______________________________________________________

Reply to this item at:

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

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