diff options
author | V3n3RiX <venerix@koprulu.sector> | 2021-10-20 10:22:14 +0100 |
---|---|---|
committer | V3n3RiX <venerix@koprulu.sector> | 2021-10-20 10:22:14 +0100 |
commit | 46eedbedafdb0040c37884982d4c775ce277fb7b (patch) | |
tree | db33a91259730be84999e13a8d8168c799f50ac0 /dev-scheme/gauche/files | |
parent | e23a08d0c97a0cc415aaa165da840b056f93c997 (diff) |
gentoo resync : 20.10.2021
Diffstat (limited to 'dev-scheme/gauche/files')
-rw-r--r-- | dev-scheme/gauche/files/gauche-0.9.9-xz-info.patch | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/dev-scheme/gauche/files/gauche-0.9.9-xz-info.patch b/dev-scheme/gauche/files/gauche-0.9.9-xz-info.patch deleted file mode 100644 index e55f53606005..000000000000 --- a/dev-scheme/gauche/files/gauche-0.9.9-xz-info.patch +++ /dev/null @@ -1,31 +0,0 @@ ---- a/lib/gauche/interactive/info.scm -+++ b/lib/gauche/interactive/info.scm -@@ -137,7 +137,8 @@ - :paths paths - :pred (^p (or (file-is-readable? p) - (file-is-readable? #"~|p|.gz") -- (file-is-readable? #"~|p|.bz2")))) -+ (file-is-readable? #"~|p|.bz2") -+ (file-is-readable? #"~|p|.xz")))) - (errorf "couldn't find info file ~s in paths: ~s" *info-file* paths)) - )) - ---- a/lib/text/info.scm -+++ b/lib/text/info.scm -@@ -64,6 +64,7 @@ - - ;; Find bzip2 location - (define bzip2 (find-file-in-paths "bzip2")) -+(define xz (find-file-in-paths "xz")) - - ;; Read an info file FILE, and returns a list of strings splitted by ^_ (#\u001f) - ;; If FILE is not found, look for compressed one. -@@ -78,6 +79,8 @@ - (close-input-port zp)))))] - [(and bzip2 (file-exists? #"~|file|.bz2")) - (with-input-from-process #"~bzip2 -c -d ~|file|.bz2" thunk)] -+ [(and xz (file-exists? #"~|file|.xz")) -+ (with-input-from-process #"~xz -c -d ~|file|.xz" thunk)] - [else (error "can't find info file" file)])) - (with-input-from-info - (lambda () |