build: Configure: remove temp files.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 18 Feb 2019 06:22:50 +0000 (07:22 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 18 Feb 2019 06:22:50 +0000 (07:22 +0100)
* configure (gulp-pipe*): Remove .error.
(check-header-c): Remove .config.c.
(check-compile-c): Likewise.
(check-link-c): Likewise.

configure

index cdd5f984fbcdb95437e614354db24fb6a56b8f83..6615e5cc1b5ad445451067ec7567675ae24bfed4 100755 (executable)
--- a/configure
+++ b/configure
@@ -91,6 +91,8 @@ MES_ARENA=100000000 exec ${SCHEME-guile} -L . --no-auto-compile -e '(configure)'
          (output (read-string port))
          (status (close-pipe port))
          (error (with-input-from-file ".error" read-string)))
+    (when (file-exists? ".error")
+      (delete-file ".error"))
     (set-current-error-port err)
     (verbose "command[~a]: ~s => ~a [~a]\n" status command output error)
     (if (not (zero? status)) ""
@@ -223,6 +225,8 @@ MES_ARENA=100000000 exec ${SCHEME-guile} -L . --no-auto-compile -e '(configure)'
   (let ((name (dependency-name dependency)))
     (stderr "checking for ~a..." name)
     (let ((result (check cc name)))
+      (when (file-exists? ".config.c")
+        (delete-file ".config.c"))
       (stderr " ~a\n" (if result "yes" "no"))
       (if result (set-field dependency (dependency-file-name) name)
           dependency))))
@@ -231,6 +235,8 @@ MES_ARENA=100000000 exec ${SCHEME-guile} -L . --no-auto-compile -e '(configure)'
   (let ((name (dependency-name dependency)))
     (stderr "checking for ~a..." name)
     (let ((result (check cc (dependency-data dependency))))
+      (when (file-exists? ".config.c")
+        (delete-file ".config.c"))
       (stderr " ~a\n" (if result "yes" "no"))
       (if result (set-field dependency (dependency-file-name) name)
           dependency))))
@@ -239,6 +245,8 @@ MES_ARENA=100000000 exec ${SCHEME-guile} -L . --no-auto-compile -e '(configure)'
   (let ((name (dependency-name dependency)))
     (stderr "checking for ~a..." name)
     (let ((result (check cc (dependency-data dependency))))
+      (when (file-exists? ".config.c")
+        (delete-file ".config.c"))
       (stderr " ~a\n" (if result "yes" "no"))
       (if result (set-field dependency (dependency-file-name) name)
           dependency))))