With-umask-align for the rest of the syscalls.

scsh/newports.scm

@@ -328,12 +328,13 @@
 ;;; replace rts/channel-port.scm begin
 (define (open-file fname flags . maybe-mode)
   (with-cwd-aligned
+   (with-umask-aligned
     (let ((fd (apply open-fdes fname flags maybe-mode))
 	  (access (bitwise-and flags open/access-mask)))
       ((if (or (= access open/read) (= access open/read+write))
 	   make-input-fdport
 	   make-output-fdport)
-      fd 0))))
+       fd 0)))))
 
 (define (open-input-file fname . maybe-flags)
   (let ((flags (:optional maybe-flags 0)))
@@ -635,6 +636,7 @@
 (define (call-with-mumble-file open close)
   (lambda (string proc)
     (with-cwd-aligned
+     (with-umask-aligned
       (let ((port #f))
 	(dynamic-wind (lambda ()
 			(if port
@@ -644,7 +646,7 @@
 		      (lambda () (proc port))
 		      (lambda ()
 			(if port
-			   (close port))))))))
+			    (close port)))))))))
 
 ;;; replace rts/channel-port.scm begin
 (define call-with-input-file

scsh/scsh-interfaces.scm

@@ -340,6 +340,8 @@
 	  set-umask
 	  with-umask*
 	  (with-umask :syntax)
+	  with-umask-aligned*
+	  (with-umask-aligned :syntax)
 
 	  process-chdir
 	  process-cwd

scsh/scsh.scm

@@ -411,6 +411,9 @@
 (define-simple-syntax (with-cwd-aligned body ...)
   (with-cwd-aligned* (lambda () body ...)))
 
+(define-simple-syntax (with-umask-aligned body ...)
+  (with-cwd-aligned* (lambda () body ...)))
+
 (define-simple-syntax (with-umask mask . body)
   (with-umask* mask (lambda () . body)))
 

scsh/syscalls.scm

@@ -545,7 +545,8 @@
 
 (define (open-fdes path flags . maybe-mode) ; mode defaults to 0666
     (with-cwd-aligned
-     (%open path flags (:optional maybe-mode #o666))))
+     (with-umask-aligned
+      (%open path flags (:optional maybe-mode #o666)))))
 
 
 (define-stubless-foreign pipe-fdes () "scheme_pipe")