27 lines
734 B
Diff
27 lines
734 B
Diff
|
From 9cc38ee61f2ae03e79a2ee7f72719783c29c6eac Mon Sep 17 00:00:00 2001
|
||
|
|
From: "Richard W.M. Jones" <rjones@redhat.com>
|
||
|
|
Date: Tue, 15 Jul 2014 15:58:49 +0000
|
||
|
|
Subject: [PATCH] gettextCompat: Use Pervasives.format_of_string instead of
|
||
|
|
Obj.magic.
|
||
|
|
|
||
|
|
---
|
||
|
|
libgettext-ocaml/gettextCompat.ml | 2 +-
|
||
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
||
|
|
|
||
|
|
diff --git a/libgettext-ocaml/gettextCompat.ml b/libgettext-ocaml/gettextCompat.ml
|
||
|
|
index 1a8ac44..08f00d5 100644
|
||
|
|
--- a/libgettext-ocaml/gettextCompat.ml
|
||
|
|
+++ b/libgettext-ocaml/gettextCompat.ml
|
||
|
|
@@ -25,7 +25,7 @@ open GettextCategory;;
|
||
|
|
open GettextModules;;
|
||
|
|
|
||
|
|
let unsafe_format_of_string fmt str =
|
||
|
|
- if true then
|
||
|
|
+ if false then
|
||
|
|
Obj.magic str
|
||
|
|
else
|
||
|
|
format_of_string fmt
|
||
|
|
--
|
||
|
|
2.0.1
|
||
|
|
|