Changeset 9323 in project


Ignore:
Timestamp:
03/08/08 15:30:46 (12 years ago)
Author:
elf
Message:

updated stattypes for windows

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/posixwin.scm

    r9316 r9323  
    11201120  (##sys#check-string fname 'symbolic-link?)
    11211121  #f)
     1122
     1123(let ((stat-type
     1124         (lambda (name func)
     1125             (lambda (fname)
     1126                 (##sys#check-string fname name)
     1127                 #f))))
     1128    (set! stat-regular? regular-file?)
     1129    (set! stat-directory? (stat-type 'stat-directory? "C_isdir"))
     1130    (set! stat-char-device? (stat-type 'stat-char-device? "C_ischr"))
     1131    (set! stat-block-device? (stat-type 'stat-block-device? "C_isblk"))
     1132    (set! stat-fifo? (stat-type 'stat-fifo? "C_isfifo"))
     1133    (set! stat-symlink? (stat-type 'stat-symlink? "C_islink"))
     1134    (set! stat-socket? (stat-type 'stat-socket? "C_issock")))
    11221135
    11231136(define file-position
Note: See TracChangeset for help on using the changeset viewer.