diff options
| author | tonio <tonio@pkgsrc.org> | 2006-03-09 10:35:49 +0000 |
|---|---|---|
| committer | tonio <tonio@pkgsrc.org> | 2006-03-09 10:35:49 +0000 |
| commit | 8127d1c0c67c8d244b7b3eecc01eec9c8a8877ba (patch) | |
| tree | c12d24dfa897bc9f9e86544ea23fbbf7c857341b /databases/geneweb/patches | |
| parent | 1d8e51428b2bb47c6e3f0a4881d094e0372ead9a (diff) | |
| download | pkgsrc-8127d1c0c67c8d244b7b3eecc01eec9c8a8877ba.tar.gz | |
Fix build with ocaml >= 3.09.0
Depends on ocaml >= 3.09.0
use _loc instead of loc in camlp4 files
bump PKGREVISION
Diffstat (limited to 'databases/geneweb/patches')
| -rw-r--r-- | databases/geneweb/patches/patch-ab | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/databases/geneweb/patches/patch-ab b/databases/geneweb/patches/patch-ab new file mode 100644 index 00000000000..46ca2bfbaa9 --- /dev/null +++ b/databases/geneweb/patches/patch-ab @@ -0,0 +1,33 @@ +$NetBSD: patch-ab,v 1.1 2006/03/09 10:35:49 tonio Exp $ + +--- src/pa_html.ml.orig 2004-12-14 10:30:14.000000000 +0100 ++++ src/pa_html.ml +@@ -10,7 +10,7 @@ value rec unfold_apply list = + | e -> (e, list) ] + ; + +-value tag_encloser loc tag newl a el = ++value tag_encloser _loc tag newl a el = + let s = if newl then "\n" else "" in + let e = + let (frm, al) = +@@ -37,13 +37,13 @@ EXTEND + GLOBAL: expr; + expr: LEVEL "top" + [ [ "tag"; (tn, al, el) = tag_body -> +- let el = tag_encloser loc tn True al el in +- ifndef NEWSEQ then MLast.ExSeq loc el (MLast.ExUid loc "()") +- else MLast.ExSeq loc el ++ let el = tag_encloser _loc tn True al el in ++ ifndef NEWSEQ then MLast.ExSeq _loc el (MLast.ExUid _loc "()") ++ else MLast.ExSeq _loc el + | "stag"; (tn, al, el) = tag_body -> +- let el = tag_encloser loc tn False al el in +- ifndef NEWSEQ then MLast.ExSeq loc el (MLast.ExUid loc "()") +- else MLast.ExSeq loc el ] ] ++ let el = tag_encloser _loc tn False al el in ++ ifndef NEWSEQ then MLast.ExSeq _loc el (MLast.ExUid _loc "()") ++ else MLast.ExSeq _loc el ] ] + ; + tag_body: + [ [ tn = STRING; a = OPT expr; "begin"; el = LIST0 expr_semi; "end" -> |