patches/guile/04-load-logic.patch

   1 --- a/ice-9/boot-9.scm  2008-11-02 18:20:23.000000000 +0000
   2 +++ b/ice-9/boot-9.scm  2008-11-02 18:20:50.000000000 +0000
   3 @@ -1625,9 +1625,12 @@
   4         (apply basic-load
   5               (if (and oldname
   6                        (> (string-length filename) 0)
   7 -                      (not (char=? (string-ref filename 0) #\/))
   8 +                       (not (or (and (> (string-length filename) 1)
   9 +                                     (char=? (string-ref filename 1) #\:))
  10 +                               (char=? (string-ref filename 0) #\/)
  11 +                                (char=? (string-ref filename 0) #\\)))
  12                        (not (string=? (dirname oldname) ".")))
  13 -                 (string-append (dirname oldname) "/" filename)
  14 +                 (string-append (dirname oldname) "\\" filename)
  15                   filename)
  16               reader)))))
  17