From 8783b3c300258da8f442c1e879073451b96b187f Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Wed, 12 Mar 2003 17:06:24 +0000 Subject: [PATCH] - bugfiz: 0! = 1 :-) --- helm/DEVEL/ocaml-http/examples/damned_recursion.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.2