mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +02:00
Code Activity

add link to doc about UNC names

Browse source 
* module/ice-9/boot-9.scm (compile-time-case): Add link to docs about
  UNC names.
This commit is contained in:
Andy Wingo 2013-02-19 15:09:32 +01:00
parent 9b6316eabc
commit 0725031fe3
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/boot-9.scm
View file

@ -1454,7 +1454,8 @@ VALUE."
(define (absolute-file-name? file-name)
(define (unc-file-name?)
;; Universal Naming Convention (UNC) file-names start with \\,
;; and are always absolute.
;; 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))
(define (has-drive-specifier?)
(and (>= (string-length file-name) 2)