[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-115-g65fa392

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=65fa3923060dd66b166fd858bcd6f462f37ee8c0

The branch, stable-2.0 has been updated
       via  65fa3923060dd66b166fd858bcd6f462f37ee8c0 (commit)
      from  eaf21539d4afb8df5d1b549215fd397b23004947 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 65fa3923060dd66b166fd858bcd6f462f37ee8c0
Author: Andy Wingo <address@hidden>
Date:   Sun Feb 24 13:03:42 2013 +0100

    allow '/' in the prefix of UNC file names on windows
    
    * module/ice-9/boot-9.scm (absolute-file-name?) [WINDOWS]: Allow '/' as
      well as '\' when detecting UNC names.
      (load-in-vicinity): Add a comment about the purpose of
      canonical->suffix.

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/boot-9.scm |   13 +++++++++----
 1 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index e748edd..067d672 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -1452,20 +1452,21 @@ VALUE."
      (define file-name-separator-string "\\")
 
      (define (absolute-file-name? file-name)
+       (define (file-name-separator-at-index? idx)
+         (and (> (string-length file-name) idx)
+              (file-name-separator? (string-ref file-name idx))))
        (define (unc-file-name?)
          ;; Universal Naming Convention (UNC) file-names start with \\,
          ;; and are always absolute.  See:
          ;;   
http://msdn.microsoft.com/en-us/library/windows/desktop/aa365247(v=vs.85).aspx#fully_qualified_vs._relative_paths
-         (string-prefix? "\\\\" file-name))
+         (and (file-name-separator-at-index? 0)
+              (file-name-separator-at-index? 1)))
        (define (has-drive-specifier?)
          (and (>= (string-length file-name) 2)
               (let ((drive (string-ref file-name 0)))
                 (or (char<=? #\a drive #\z)
                     (char<=? #\A drive #\Z)))
               (eqv? (string-ref file-name 1) #\:)))
-       (define (file-name-separator-at-index? idx)
-         (and (> (string-length file-name) idx)
-              (file-name-separator? (string-ref file-name idx))))
        (or (unc-file-name?)
            (if (has-drive-specifier?)
                (file-name-separator-at-index? 2)
@@ -3694,6 +3695,10 @@ CONV is not applied to the initial value."
 pre-compiled version of FILE-NAME when available, and auto-compile one
 when none is available, reading FILE-NAME with READER."
 
+  ;; The auto-compilation code will residualize a .go file in the cache
+  ;; dir: by default, $HOME/.cache/guile/2.0/ccache/PATH.go.  This
+  ;; function determines the PATH to use as a key into the compilation
+  ;; cache.
   (define (canonical->suffix canon)
     (cond
      ((and (not (string-null? canon))


hooks/post-receive
-- 
GNU Guile