From 511de054920d6e2f43eb973d13aee9b4e3e9a926 Mon Sep 17 00:00:00 2001 From: V3n3RiX Date: Sat, 21 Jul 2018 19:05:26 +0100 Subject: gentoo resync : 21.07.2018 --- mail-filter/scmail/files/scmail-gauche-0.9.patch | 35 ++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 mail-filter/scmail/files/scmail-gauche-0.9.patch (limited to 'mail-filter/scmail/files/scmail-gauche-0.9.patch') diff --git a/mail-filter/scmail/files/scmail-gauche-0.9.patch b/mail-filter/scmail/files/scmail-gauche-0.9.patch new file mode 100644 index 000000000000..9062df4eb71d --- /dev/null +++ b/mail-filter/scmail/files/scmail-gauche-0.9.patch @@ -0,0 +1,35 @@ +--- a/scbayes.in ++++ b/scbayes.in +@@ -16,6 +16,7 @@ + + (use gauche.parseopt) + (use gauche.parameter) ++(use gauche.version) + (use dbm) + (use dbm.gdbm) ;; should be customizable + (use util.digest) +@@ -130,12 +131,18 @@ + (sys-rename (temporary-table-file) (table-file)) + (sys-rename (temporary-digest-file) (digest-file))))) + +-(define (lock) +- (unless (eq? (create-directory* (lock-file)) #t) +- (scmail-wformat "~a is now being updated" (table-file)) +- (scmail-wformat "or perhaps ~a is staled." (lock-file)) +- (scmail-eformat "(Please remove the lock file if it is staled.)")) +- ) ++(if (version