Changeset 15813 in project for chicken/trunk/posixwin.scm


Ignore:
Timestamp:
09/09/09 07:04:31 (11 years ago)
Author:
Kon Lovett
Message:

posixwin use of 'fx= 0' instead of 'zero?'
posixunix use of 'fx= 0' instead of 'zero?', fix for 'create-directory' when absolute pathname & easier to read
files common code for "is this a pds char?", added 'decompose-directory', rmvd redundent compile-time proc cache
files added 'decompose-directory'
data-structures 'random-seed' not here

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/posixwin.scm

    r15728 r15813  
    11581158
    11591159(define-inline (create-directory-helper name)
    1160     (unless (zero? (##core#inline "C_mkdir" (##sys#make-c-string name)))
     1160    (unless (fx= 0 (##core#inline "C_mkdir" (##sys#make-c-string name)))
    11611161            (##sys#update-errno)
    11621162            (##sys#signal-hook #:file-error 'create-directory
     
    11941194  (lambda (name)
    11951195    (##sys#check-string name 'change-directory)
    1196     (unless (zero? (##core#inline "C_chdir" (##sys#make-c-string (##sys#expand-home-path name))))
     1196    (unless (fx= 0 (##core#inline "C_chdir" (##sys#make-c-string (##sys#expand-home-path name))))
    11971197      (##sys#update-errno)
    11981198      (##sys#signal-hook #:file-error 'change-directory "cannot change current directory" name) ) ) )
     
    12011201  (lambda (name)
    12021202    (##sys#check-string name 'delete-directory)
    1203     (unless (zero? (##core#inline "C_rmdir" (##sys#make-c-string (##sys#expand-home-path name))))
     1203    (unless (fx= 0 (##core#inline "C_rmdir" (##sys#make-c-string (##sys#expand-home-path name))))
    12041204      (##sys#update-errno)
    12051205      (##sys#signal-hook #:file-error 'delete-directory "cannot delete directory" name) ) ) )
     
    20342034        [string-match string-match]
    20352035        [make-pathname make-pathname]
     2036        [pathname-file pathname-file]
    20362037        [directory? directory?] )
    20372038    (lambda (dir pred . action-id-limit)
Note: See TracChangeset for help on using the changeset viewer.