diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2018-07-21 19:05:26 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2018-07-21 19:05:26 +0100 |
commit | 511de054920d6e2f43eb973d13aee9b4e3e9a926 (patch) | |
tree | 5b2f65aa4c29c8b8a42d466145083e299acb498e /mail-filter/scmail/files/scmail-gauche-0.9.patch | |
parent | 8cdbce52e2f89fecc3d9bac3ff73ebee1c8f8c75 (diff) |
gentoo resync : 21.07.2018
Diffstat (limited to 'mail-filter/scmail/files/scmail-gauche-0.9.patch')
-rw-r--r-- | mail-filter/scmail/files/scmail-gauche-0.9.patch | 35 |
1 files changed, 35 insertions, 0 deletions
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<? (gauche-version) "0.9") ++ (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.)"))) ++ (define (lock) ++ (guard (e (else ++ (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.)"))) ++ (create-directory* (lock-file))))) + + (define force-learn? (make-parameter #f)) + |