Don't show compilation dependencies by default.

diff --git a/src/compiler/base/toplev.scm b/src/compiler/base/toplev.scm
index 6636b5db611d87adbb5a16f1b9b5eb8890db78f1..81bd2e749b55bd22d99ed6802e6e669d00071ced 100644 (file)
--- a/src/compiler/base/toplev.scm
+++ b/src/compiler/base/toplev.scm
@@ -34,6 +34,7 @@ USA.
 (define compile-file:override-usual-integrations '())
 (define compile-file:sf-only? #f)
 (define compile-file:force? #f)
+(define compile-file:show-dependencies? #f)
 (define compiler:compile-data-files-as-expressions? #t)
 (define compile-file)
 (let ((scm-pathname (lambda (path) (pathname-new-type path "scm")))
@@ -64,21 +65,21 @@ USA.
                             (cons input-file dependencies))))))
          (if (pair? reasons)
              (begin
-               (write-notification-line
-                (lambda (port)
-                  (write-string "Generating " port)
-                  (write (->namestring output-file) port)
-                  (write-string " because of:" port)
-                  (for-each (lambda (reason)
-                              (write-char #\space port)
-                              (write (->namestring reason) port))
-                            reasons)))
+               (if compile-file:show-dependencies?
+                   (write-notification-line
+                    (lambda (port)
+                      (write-string "Generating " port)
+                      (write (->namestring output-file) port)
+                      (write-string " because of:" port)
+                      (for-each (lambda (reason)
+                                  (write-char #\space port)
+                                  (write (->namestring reason) port))
+                                reasons))))
                (doit)))))))
 
   (set! compile-file
        (named-lambda (compile-file file #!optional dependencies environment)
-         (process-file (scm-pathname file)
-                       (bin-pathname file)
+         (process-file (scm-pathname file) (bin-pathname file)
                        (map ext-pathname
                             (if (default-object? dependencies)
                                 '()
@@ -91,20 +92,18 @@ USA.
                                 (if (not (environment? environment))
                                     (error:wrong-type-argument environment
                                                                "environment"
-                                                               'COMPILE-FILE))
+                                                               'compile-file))
                                 environment)))
                          (sf/default-declarations
-                          `((USUAL-INTEGRATIONS
+                          `((usual-integrations
                              ,@compile-file:override-usual-integrations)
                             ,@(let ((deps (filter ext-pathname? dependencies)))
                                 (if (null? deps)
                                     '()
-                                    `((INTEGRATE-EXTERNAL ,@deps)))))))
+                                    `((integrate-external ,@deps)))))))
                (sf input-file output-file))))
          (if (not compile-file:sf-only?)
-             (process-file (bin-pathname file)
-                           (com-pathname file)
-                           '()
+             (process-file (bin-pathname file) (com-pathname file) '()
                (lambda (input-file output-file dependencies)
                  dependencies
                  (fluid-let ((compiler:coalescing-constant-warnings? #f))

diff --git a/src/compiler/machines/C/compiler.pkg b/src/compiler/machines/C/compiler.pkg
index a14458be47b1212f77508659a48b4fe149c9bf36..5013be5ffeb8f70bed50e645e4e7fc26a48ade40 100644 (file)
--- a/src/compiler/machines/C/compiler.pkg
+++ b/src/compiler/machines/C/compiler.pkg
@@ -235,6 +235,7 @@ USA.
          compile-file:force?
          compile-file:override-usual-integrations
          compile-file:sf-only?
+         compile-file:show-dependencies?
          compile-procedure
          compile-scode
          compiler:compiled-code-pathname-type

diff --git a/src/compiler/machines/i386/compiler.pkg b/src/compiler/machines/i386/compiler.pkg
index e819485587ffe961199041c5032ff76b80490cef..f77d28be735ae0b02eab787caba840c8975f497c 100644 (file)
--- a/src/compiler/machines/i386/compiler.pkg
+++ b/src/compiler/machines/i386/compiler.pkg
@@ -235,6 +235,7 @@ USA.
          compile-file:force?
          compile-file:override-usual-integrations
          compile-file:sf-only?
+         compile-file:show-dependencies?
          compile-procedure
          compile-scode
          compiler:compiled-code-pathname-type

diff --git a/src/compiler/machines/svm/compiler.pkg b/src/compiler/machines/svm/compiler.pkg
index a0ee4a5c5f09c0927cfc83e874097b12d01bec77..666311208bbbe37cc4cb0e2ff11e4745b9e922a2 100644 (file)
--- a/src/compiler/machines/svm/compiler.pkg
+++ b/src/compiler/machines/svm/compiler.pkg
@@ -235,6 +235,7 @@ USA.
          compile-file:force?
          compile-file:override-usual-integrations
          compile-file:sf-only?
+         compile-file:show-dependencies?
          compile-procedure
          compile-scode
          compiler:compiled-code-pathname-type

diff --git a/src/compiler/machines/x86-64/compiler.pkg b/src/compiler/machines/x86-64/compiler.pkg
index 0c9e89aae02c912f360b0ee908fb36d8bde8707b..b1bab34a4dc0eed8072c4c6a300143ac3f746662 100644 (file)
--- a/src/compiler/machines/x86-64/compiler.pkg
+++ b/src/compiler/machines/x86-64/compiler.pkg
@@ -235,6 +235,7 @@ USA.
          compile-file:force?
          compile-file:override-usual-integrations
          compile-file:sf-only?
+         compile-file:show-dependencies?
          compile-procedure
          compile-scode
          compiler:compiled-code-pathname-type