- added if(---) {} wrapper around call to WRITE in display macro to

silence unused return-value warnings.
    prim5.c
- liberalized get-mode check for ../mats.  it's not our business whether
  people make their directories group and/or other writeable.
    6.ms

original commit: b90a037c9fac18fdcbce73a42f28940e85a6c07b

LOG

@@ -39,3 +39,9 @@
 - converted s_test_schlib shifts of -1 to equivalent shifts of 1 to
   avoid undefined left-shift behavior on negative numbers.
     prim5.c
+- added if(---) {} wrapper around call to WRITE in display macro to
+  silence unused return-value warnings.
+    prim5.c
+- liberalized get-mode check for ../mats.  it's not our business whether
+  people make their directories group and/or other writeable.
+    6.ms

c/prim5.c

@@ -1322,7 +1322,7 @@ static void s_putenv(name, value) char *name, *value; {
 
 #ifdef PTHREADS
 /* backdoor thread is for testing thread creation by Sactivate_thread */
-#define display(s) { const char *S = (s); WRITE(1, S, (unsigned int)strlen(S)); }
+#define display(s) { const char *S = (s); if (WRITE(1, S, (unsigned int)strlen(S))) {} }
 static s_thread_rv_t s_backdoor_thread_start(p) void *p; {
   display("backdoor thread started\n")
   (void) Sactivate_thread();

mats/6.ms

@@ -2887,7 +2887,7 @@
            (eqv? (get-mode "c:") (get-mode "c:/."))))
   (if (or (windows?) (embedded?))
       (fixnum? (get-mode "../mats"))
-      (eqv? (logand (get-mode "../mats") #o722) #o700))
+      (eqv? (logand (get-mode "../mats") #o700) #o700))
   (and (eqv? (get-mode "../mats") (get-mode "../mats/"))
        (eqv? (get-mode "../mats") (get-mode "../mats/.")))
   ; access times are unreliable on contemporary file systems