scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added forgotten calls to with-cwd-aligned.

This commit is contained in:
mainzelm 2002-03-05 16:57:43 +00:00
parent 87d82f5011
commit cb6e8572d6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scsh/syscalls.scm
View File

@ -183,7 +183,7 @@
;;; ports. ;;; ports.
(define (generic-file-op thing fd-op fname-op) (define (generic-file-op thing fd-op fname-op)
(if (string? thing) (fname-op thing) (if (string? thing) (with-cwd-aligned (fname-op thing))
(call/fdes thing fd-op))) (call/fdes thing fd-op)))
@ -338,7 +338,10 @@
(lambda (fd) (%truncate-fdes fd length)) (lambda (fd) (%truncate-fdes fd length))
(lambda (fname) (%truncate-file fname length)))) (lambda (fname) (%truncate-file fname length))))
(import-os-error-syscall delete-file (path) "scsh_unlink") (import-os-error-syscall %delete-file (path) "scsh_unlink")
(define (delete-file path)
(with-cwd-aligned (%delete-file path)))
(import-os-error-syscall %sync-file (fd) "scsh_fsync") (import-os-error-syscall %sync-file (fd) "scsh_fsync")