- bugfiz: 0! = 1 :-)

[helm.git] / helm / DEVEL / ocaml-http / examples / damned_recursion.ml

diff --git a/helm/DEVEL/ocaml-http/examples/damned_recursion.ml b/helm/DEVEL/ocaml-http/examples/damned_recursion.ml
index c7fbe846f3b2af04b3c06988303e31cc8ebd38f2..dd3f6a36d0cc5410ec655cfc488421b76f5840e3 100644 (file)
--- 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))