Ticket #1608: 0001-Check-for-installed-files-iff-installing-them.patch

File 0001-Check-for-installed-files-iff-installing-them.patch, 1.4 KB (added by Vasilij Schneidermann, 5 years ago)

  • chicken-install.scm 

    From 00132d0376eb4744231aec204202898fad5f3c20 Mon Sep 17 00:00:00 2001
From: Vasilij Schneidermann <mail@vasilij.de>
Date: Sat, 13 Apr 2019 18:15:15 +0200
Subject: [PATCH] Check for installed files iff installing them

---
 chicken-install.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/chicken-install.scm b/chicken-install.scm
index f35e4d28..0978c4be 100644
    a b  
    824824                                                               ver
    825825                                                               platform
    826826                                                               'host)))
    827             (check-installed-files name info)                         
    828827            (let ((bscript (make-pathname dir name
    829828                                          (build-script-extension 'host platform)))
    830829                  (iscript (make-pathname dir name
    … …  
    843842                      (print "building " name)
    844843                      (run-script dir bscript platform)
    845844                      (unless (if (member name requested-eggs) no-install no-install-dependencies)
     845                        (check-installed-files name info)
    846846                        (print "  installing " name)
    847847                        (run-script dir iscript platform sudo: sudo-install))
    848848                      (when (and (member name requested-eggs)