Ticket #607: 0001-Fix-posix-file-type-on-Windows-by-testing-for-regula.patch

File 0001-Fix-posix-file-type-on-Windows-by-testing-for-regula.patch, 748 bytes (added by Jim Ursetto, 13 years ago)

  • posix-common.scm 

    From d903b9279d518d1e298e352cf26755e830a32d10 Mon Sep 17 00:00:00 2001
From: zbigniew <zbigniewsz@gmail.com>
Date: Wed, 15 Jun 2011 00:49:51 -0500
Subject: [PATCH] Fix posix#file-type on Windows by testing for regular file first

---
 posix-common.scm |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/posix-common.scm b/posix-common.scm
index 8961768..6dc4f50 100644
    a b EOF 
    191191(define (file-type file #!optional link (err #t))
    192192  (and (##sys#stat file link err 'file-type)
    193193       (select (foreign-value "C_stat_type" unsigned-int)
     194         ((S_IFREG) 'regular-file)
    194195         ((S_IFLNK) 'symbolic-link)
    195196         ((S_IFDIR) 'directory)
    196197         ((S_IFCHR) 'character-device)