File: ocaml-3.09.1.patch

package info (click to toggle)
mldonkey 2.9.5-2+lenny1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 17,064 kB
  • ctags: 27,215
  • sloc: ml: 146,054; cpp: 11,806; ansic: 7,663; sh: 4,187; asm: 3,858; xml: 3,472; makefile: 203; perl: 54
file content (27 lines) | stat: -rw-r--r-- 1,467 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
diff -uwNr ./ocaml-3.09.1/camlp4/etc/pr_o.ml ./ocaml-3.09.1_new/camlp4/etc/pr_o.ml
--- ./camlp4/etc/pr_o.ml	2006-01-03 19:12:30.000000000 +0100
+++ ./camlp4/etc/pr_o.ml	2005-08-13 22:59:37.000000000 +0200
@@ -1407,9 +1407,7 @@
         <:expr< for $_$ = $_$ $to:_$ $_$ do { $list:_$ } >> |
         <:expr< while $_$ do { $list:_$ } >> | <:expr< ($list: _$) >> |
         <:expr< let $opt:_$ $list:_$ in $_$ >> |
-        <:expr< let module $_$ = $_$ in $_$ >> |
-        <:expr< new $list:_$ >> | 
-        <:expr< assert $_$ >> | <:expr< lazy $_$ >> as e ->
+        <:expr< let module $_$ = $_$ in $_$ >> as e ->
           fun curr next dg k ->
             [: `S LO "("; `expr e "" [: `HVbox [: `S RO ")"; k :] :] :]
       | e -> fun curr next _ k -> [: `not_impl "expr" e :] ]}];
diff -uwNr ./ocaml-3.09.1/camlp4/etc/pr_r.ml ./ocaml-3.09.1_new/camlp4/etc/pr_r.ml
--- ./camlp4/etc/pr_r.ml	2006-01-03 19:12:30.000000000 +0100
+++ ./camlp4/etc/pr_r.ml	2005-08-13 22:59:37.000000000 +0200
@@ -1315,8 +1315,7 @@
         <:expr< while $_$ do { $list:_$ } >> |
         <:expr< let $opt:_$ $list:_$ in $_$ >> |
         <:expr< let module $_$ = $_$ in $_$ >> |
-        <:expr< new $list:_$ >> | 
-        <:expr< assert $_$ >> | <:expr< lazy $_$ >> as e ->
+        <:expr< new $list:_$ >> as e ->
           fun curr next _ k ->
             [: `S LO "("; `expr e [: `HVbox [: `S RO ")"; k :] :] :]
       | e -> fun curr next _ k -> [: `not_impl "expr" e :] ]}];