X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fexamples%2Fdamned_recursion.ml;h=dd3f6a36d0cc5410ec655cfc488421b76f5840e3;hb=78cf601fd8b8dbb386b0db315dcbfdbe8256c15f;hp=c7fbe846f3b2af04b3c06988303e31cc8ebd38f2;hpb=8c838424df850f6e139733b32c3e1680246a4184;p=helm.git

diff --git a/helm/DEVEL/ocaml-http/examples/damned_recursion.ml b/helm/DEVEL/ocaml-http/examples/damned_recursion.ml
index c7fbe846f..dd3f6a36d 100644
--- a/helm/DEVEL/ocaml-http/examples/damned_recursion.ml
+++ b/helm/DEVEL/ocaml-http/examples/damned_recursion.ml
@@ -44,7 +44,7 @@ let callback (req: request) outchan =
   let i = int_of_string (req#param "x") in
   prerr_endline (string_of_int i);
   match i with
-  | 0 -> output_string outchan "0"
+  | 0 -> output_string outchan "1"
   | x when x>0 ->
       let data =
         wget "127.0.0.1" 9999 (sprintf "/foo?x=%d" (x-1))