Add a exception contunuation to handle Lutin Exceptions correctly in rdbg.

examples/lutin/crazy-rabbit/Makefile

@@ -23,7 +23,7 @@ clean:
 
 test.rif:$(EXPDIR) rabbit.cmxs
 	rm -f test.rif0 .lurette_rc
-	$(LURETTETOP) -go  --output test.rif0  -seed 33  \
+	$(LURETTETOP) -go  --output test.rif0  -seed 34  \
 	  -rp "sut:ocaml:rabbit.cmxs:" \
 	  -rp 'env:lutin:rabbit.lut:-main:rabbit:-L:libm.so:-loc' && \
 	grep -v "lurette chronogram" test.rif0  | \

lutin/src/mainArg.ml

@@ -110,10 +110,10 @@ let event_incr opt =
   let r = Random.int 1073741823 in
   opt._event_nb <- opt._event_nb + 1;
   Random.full_init [|seed; opt._event_nb|];
-   Printf.fprintf
-     stderr "The random engine seed is set with (%i,%i) (%i,%i)\n"
-     opt._event_nb seed r (Random.int 1073741823);
-   flush stderr;
+(*    Printf.fprintf *)
+(*      stderr "The random engine seed is set with (%i,%i) (%i,%i)\n" *)
+(*      opt._event_nb seed r (Random.int 1073741823); *)
+(*    flush stderr; *)
 ()
     
 

lutin/src/reactive.ml

@@ -8,12 +8,13 @@ let step p = match p with DoStep _p -> _p
 type prg_ldbg = 
     DoStep_ldbg of (Event.ctx ->  Value.t list ->
                     (Event.ctx -> prg_ldbg -> Value.t list -> Event.t) ->
-                    (Event.ctx -> Event.t) ->  Event.t)
+                    (Event.ctx -> Event.t) -> (Event.ctx -> string -> Event.t)
+                    -> Event.t)
 
  
 
 let (step_ldbg : Event.ctx -> 
        prg_ldbg -> Value.t list -> (Event.ctx -> prg_ldbg -> Value.t list -> Event.t)
-       ->  (Event.ctx -> Event.t) ->  Event.t) =
+       ->  (Event.ctx -> Event.t) -> (Event.ctx -> string -> Event.t) -> Event.t) =
   fun ctx p vl cont fail_cont -> 
     match p with DoStep_ldbg _p -> _p ctx vl cont fail_cont

lutin/src/reactive.mli

@@ -8,10 +8,11 @@ val step : prg -> Value.t list -> (Value.t list * prg)
 type prg_ldbg = 
     DoStep_ldbg of ( Event.ctx -> Value.t list -> 
                      (Event.ctx -> prg_ldbg -> Value.t list -> Event.t) -> 
-                      (Event.ctx -> Event.t) ->  Event.t)
+                      (Event.ctx -> Event.t) -> (Event.ctx -> string -> Event.t)
+                      ->  Event.t)
   
 val step_ldbg : Event.ctx -> prg_ldbg -> Value.t list ->
   (Event.ctx -> prg_ldbg -> Value.t list -> Event.t) -> 
-  (Event.ctx -> Event.t) ->  Event.t
+  (Event.ctx -> Event.t) ->  (Event.ctx -> string -> Event.t) -> Event.t
 
 

lutin/src/version.ml

 let str="1.57"
-let sha="b854552"
+let sha="35dea30"