[Pkg-ocaml-maint-commits] r1909 - trunk/packages/ledit/trunk/debian/patches

[Sven Luther]

Author: luther
Date: 2005-11-03 09:45:25 +0000 (Thu, 03 Nov 2005)
New Revision: 1909

Added:
   trunk/packages/ledit/trunk/debian/patches/camlp4-loc.dpatch
Log:
Added forgotten camlp4-loc patch :/


Added: trunk/packages/ledit/trunk/debian/patches/camlp4-loc.dpatch
===================================================================
--- trunk/packages/ledit/trunk/debian/patches/camlp4-loc.dpatch	2005-11-02 22:35:38 UTC (rev 1908)
+++ trunk/packages/ledit/trunk/debian/patches/camlp4-loc.dpatch	2005-11-03 09:45:25 UTC (rev 1909)
@@ -0,0 +1,35 @@
+#! /bin/sh -e 
+## camlp4-loc.dpatch by <luther at debian.org>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Ocaml 3.09.0 campl4 loc fix.
+
+if [ $# -ne 1 ]; then
+    echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
+    exit 1
+fi
+case "$1" in
+    -patch) patch -f --no-backup-if-mismatch -p1 < $0;;
+    -unpatch) patch -f --no-backup-if-mismatch -R -p1 < $0;;	
+    *)
+	echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
+	exit 1;;
+esac
+
+exit 0
+ at DPATCH@
+--- ledit-1.11/pa_local.ml.orig	2005-11-01 21:40:50.000000000 +0000
++++ ledit-1.11/pa_local.ml	2005-11-01 21:41:05.000000000 +0000
+@@ -14,10 +14,10 @@
+ open Pcaml;
+ 
+ value expr_of_patt p =
+-  let loc = MLast.loc_of_patt p in
++  let _loc = MLast.loc_of_patt p in
+   match p with
+   [ <:patt< $lid:x$ >> -> <:expr< $lid:x$ >>
+-  | _ -> Stdpp.raise_with_loc loc (Stream.Error "identifier expected") ]
++  | _ -> Stdpp.raise_with_loc _loc (Stream.Error "identifier expected") ]
+ ;
+ 
+ EXTEND