From cb6e8572d63d39dcf2690051d00e31779c744ae0 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Tue, 5 Mar 2002 16:57:43 +0000 Subject: [PATCH] Added forgotten calls to with-cwd-aligned. --- scsh/syscalls.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm index 743f31f..c0fa537 100644 --- a/scsh/syscalls.scm +++ b/scsh/syscalls.scm @@ -183,7 +183,7 @@ ;;; ports. (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))) @@ -338,7 +338,10 @@ (lambda (fd) (%truncate-fdes fd 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")