|
|
7dda85d |
From fdc5c9eeaccf9c3f25d3a5d943fbbf08ef936233 Mon Sep 17 00:00:00 2001
|
|
|
89d86ed |
From: Richard W.M. Jones <rjones@redhat.com>
|
|
|
89d86ed |
Date: Mon, 18 Jun 2012 08:35:14 +0100
|
|
|
e182b46 |
Subject: [PATCH 11/35] EPEL 5: Replace format6 with format4 in OCaml gettext routines.
|
|
|
89d86ed |
|
|
|
89d86ed |
---
|
|
|
89d86ed |
configure.ac | 10 +++++-----
|
|
|
89d86ed |
1 files changed, 5 insertions(+), 5 deletions(-)
|
|
|
89d86ed |
|
|
|
89d86ed |
diff --git a/configure.ac b/configure.ac
|
|
|
7dda85d |
index 0e49b34..d0f6f1e 100644
|
|
|
89d86ed |
--- a/configure.ac
|
|
|
89d86ed |
+++ b/configure.ac
|
|
|
7dda85d |
@@ -978,14 +978,14 @@ EOF
|
|
|
7dda85d |
cat <<EOF >>resize/common_gettext.ml
|
|
|
89d86ed |
module Gettext = struct
|
|
|
89d86ed |
external s_ : string -> string = "%identity"
|
|
|
89d86ed |
- external f_ : ('a, 'b, 'c, 'd, 'e, 'f) format6
|
|
|
89d86ed |
- -> ('a, 'b, 'c, 'd, 'e, 'f) format6
|
|
|
89d86ed |
+ external f_ : ('a, 'b, 'c, 'd) format4
|
|
|
89d86ed |
+ -> ('a, 'b, 'c, 'd) format4
|
|
|
89d86ed |
= "%identity"
|
|
|
89d86ed |
let sn_ : string -> string -> int -> string
|
|
|
89d86ed |
= fun s p n -> if n = 1 then s else p
|
|
|
89d86ed |
- let fn_ : ('a, 'b, 'c, 'd, 'e, 'f) format6
|
|
|
89d86ed |
- -> ('a, 'b, 'c, 'd, 'e, 'f) format6
|
|
|
89d86ed |
- -> int -> ('a, 'b, 'c, 'd, 'e, 'f) format6
|
|
|
89d86ed |
+ let fn_ : ('a, 'b, 'c, 'd) format4
|
|
|
89d86ed |
+ -> ('a, 'b, 'c, 'd) format4
|
|
|
89d86ed |
+ -> int -> ('a, 'b, 'c, 'd) format4
|
|
|
89d86ed |
= fun s p n -> if n = 1 then s else p
|
|
|
89d86ed |
end
|
|
|
89d86ed |
EOF
|
|
|
89d86ed |
--
|
|
|
89d86ed |
1.7.4.1
|
|
|
89d86ed |
|