Align cwd and umask.

scsh/filesys.scm

@@ -37,6 +37,8 @@
 ;;; Abstract out common code for create-{directory,fifo,hard-link,symlink}:
 
 (define (create-file-thing fname makeit override? op-name syscall)
+  (with-cwd-aligned
+   (with-umask-aligned
     (let ((query (lambda ()
 		   (y-or-n? (string-append op-name ": " fname
 					   " already exists. Delete")))))
@@ -57,7 +59,7 @@
 		#f))))
 	(if (list? result)
 	    (apply errno-error result)
-	  (if #f #f)))))
+	    (if #f #f)))))))
 
 ;;;;;;;
 
@@ -106,10 +108,11 @@
 ;;; us not to. That's life in the food chain.
 
 (define (rename-file old-fname new-fname . maybe-override?)
+  (with-cwd-aligned
    (let ((override? (:optional maybe-override? #f)))
      (if (or (and override? (not (eq? override? 'query)))
 	     (file-not-exists? new-fname)
 	     (and override?
 		  (y-or-n? (string-append "rename-file:" new-fname
 					  " already exists. Delete"))))
-	(%rename-file old-fname new-fname))))
+	 (%rename-file old-fname new-fname)))))