From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 1 Feb 2017 07:27:45 +0000 (-0700)
Subject: Suppress 100+ useless pass 1 warnings about missing externs files.
X-Git-Tag: mit-scheme-pucked-9.2.12~235^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e92b3e3e760790b6562c4f1dd0c06ad009b1e275;p=mit-scheme.git

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 37ca2c6f8..5b291b1ee 100644
--- 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 9b55e4370..f1e9eaebc 100644
--- 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 7e58fe10d..4c89bb3a9 100644
--- 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 795cbf80d..6924a256b 100644
--- 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))