Suppress 100+ useless pass 1 warnings about missing externs files.

diff --git a/src/compiler/machines/C/decls.scm b/src/compiler/machines/C/decls.scm
index 37ca2c6f8a6820dcb9cb29f45a3a878914dc55f9..5b291b1eee31500fda2b9b8c143c86cb61f3cc07 100644 (file)
--- a/src/compiler/machines/C/decls.scm
+++ b/src/compiler/machines/C/decls.scm
@@ -249,10 +249,16 @@ USA.
   (write-notification-line
    (lambda (port)
      (write-string "Begin pass 1:" port)))
-  (for-each (lambda (node)
-             (if (not (source-node/modification-time node))
-                 (source-node/syntax! node)))
-           source-nodes/by-rank)
+  (bind-condition-handler (list condition-type:simple-warning)
+      (lambda (condition)
+       (if (string=? (access-condition condition 'MESSAGE)
+                     "Missing externs file:")
+           (muffle-warning)))
+    (lambda ()
+      (for-each (lambda (node)
+                 (if (not (source-node/modification-time node))
+                     (source-node/syntax! node)))
+               source-nodes/by-rank)))
   (if (there-exists? source-nodes/by-rank
        (lambda (node)
          (and (not (source-node/modification-time node))

diff --git a/src/compiler/machines/i386/decls.scm b/src/compiler/machines/i386/decls.scm
index 9b55e4370bf230e116035f21003028a04f8ac629..f1e9eaebcc20187903f4f8eaf03c88064435b84e 100644 (file)
--- a/src/compiler/machines/i386/decls.scm
+++ b/src/compiler/machines/i386/decls.scm
@@ -249,10 +249,16 @@ USA.
   (write-notification-line
    (lambda (port)
      (write-string "Begin pass 1:" port)))
-  (for-each (lambda (node)
-             (if (not (source-node/modification-time node))
-                 (source-node/syntax! node)))
-           source-nodes/by-rank)
+  (bind-condition-handler (list condition-type:simple-warning)
+      (lambda (condition)
+       (if (string=? (access-condition condition 'MESSAGE)
+                     "Missing externs file:")
+           (muffle-warning)))
+    (lambda ()
+      (for-each (lambda (node)
+                 (if (not (source-node/modification-time node))
+                     (source-node/syntax! node)))
+               source-nodes/by-rank)))
   (if (there-exists? source-nodes/by-rank
        (lambda (node)
          (and (not (source-node/modification-time node))

diff --git a/src/compiler/machines/svm/decls.scm b/src/compiler/machines/svm/decls.scm
index 7e58fe10d527531b12628193919c90f017fd51cc..4c89bb3a9e0980a5ac0abc7b4b467b86a33cd0cf 100644 (file)
--- a/src/compiler/machines/svm/decls.scm
+++ b/src/compiler/machines/svm/decls.scm
@@ -255,10 +255,16 @@ USA.
   (write-notification-line
    (lambda (port)
      (write-string "Begin pass 1:" port)))
-  (for-each (lambda (node)
-             (if (not (source-node/modification-time node))
-                 (source-node/syntax! node)))
-           source-nodes/by-rank)
+  (bind-condition-handler (list condition-type:simple-warning)
+      (lambda (condition)
+       (if (string=? (access-condition condition 'MESSAGE)
+                     "Missing externs file:")
+           (muffle-warning)))
+    (lambda ()
+      (for-each (lambda (node)
+                 (if (not (source-node/modification-time node))
+                     (source-node/syntax! node)))
+               source-nodes/by-rank)))
   (if (there-exists? source-nodes/by-rank
        (lambda (node)
          (and (not (source-node/modification-time node))

diff --git a/src/compiler/machines/x86-64/decls.scm b/src/compiler/machines/x86-64/decls.scm
index 795cbf80d84e7ee8081ba4e1332e7179736e671f..6924a256b3ed74ea6f2af9cad81380b3ec148d26 100644 (file)
--- a/src/compiler/machines/x86-64/decls.scm
+++ b/src/compiler/machines/x86-64/decls.scm
@@ -249,10 +249,16 @@ USA.
   (write-notification-line
    (lambda (port)
      (write-string "Begin pass 1:" port)))
-  (for-each (lambda (node)
-             (if (not (source-node/modification-time node))
-                 (source-node/syntax! node)))
-           source-nodes/by-rank)
+  (bind-condition-handler (list condition-type:simple-warning)
+      (lambda (condition)
+       (if (string=? (access-condition condition 'MESSAGE)
+                     "Missing externs file:")
+           (muffle-warning)))
+    (lambda ()
+      (for-each (lambda (node)
+                 (if (not (source-node/modification-time node))
+                     (source-node/syntax! node)))
+               source-nodes/by-rank)))
   (if (there-exists? source-nodes/by-rank
        (lambda (node)
          (and (not (source-node/modification-time node))