lurette 0.81 Mon, 02 Sep 2002 16:13:16 +0200 by jahier

Parent-Version:      0.80
Version-Log:

source/control.ml:
   Give a proper error message when one uses a ctrl expr that
   is not defined.

Project-Description: Lurette

.lurette.prcs_aux

@@ -29,7 +29,7 @@
 (test/passerelle.ima 972 1027066799 b/17_passerelle 1.7)
 (source/ima_exe.ml 11903 1030614411 b/32_ima_exe.ml 1.16)
 (doc/automata_format 0 1007379917 b/3_automata_f 1.1)
-(source/control.ml 4333 1030975671 c/4_control.ml 1.2)
+(source/control.ml 4416 1030975996 c/4_control.ml 1.3)
 (source/eval.ml 7755 1027066799 49_eval.ml 1.13)
 (source/gen_stubs.ml 33359 1030614411 24_generate_l 1.30)
 (source/parse_env.ml 22235 1030975671 41_parse_env. 1.22)

lurette.prj

 ;; -*- Prcs -*-
 (Created-By-Prcs-Version 1 3 3)
 (Project-Description "Lurette")
-(Project-Version lurette 0 80)
-(Parent-Version lurette 0 79)
+(Project-Version lurette 0 81)
+(Parent-Version lurette 0 80)
 (Version-Log "
 source/control.ml:
-source/parse_env.ml:
-    Add a new ctrl expr (set_between) to let one set the value of a CE var
-    in such a way that it is backtracable within an interval. One rational 
-    is that it let ones code infinite loops that can be exited when 
-    the formula is false.
-    
+   Give a proper error message when one uses a ctrl expr that
+   is not defined.
 
 ")
 (New-Version-Log "")
-(Checkin-Time "Mon, 02 Sep 2002 16:07:51 +0200")
+(Checkin-Time "Mon, 02 Sep 2002 16:13:16 +0200")
 (Checkin-Login jahier)
 (Populate-Ignore ())
 (Project-Keywords)
@@ -84,7 +80,7 @@ source/parse_env.ml:
   (source/gen_stubs.ml (lurette/24_generate_l 1.30 644))
 
   (source/control.mli (lurette/c/3_control.ml 1.2 644))
-  (source/control.ml (lurette/c/4_control.ml 1.2 644))
+  (source/control.ml (lurette/c/4_control.ml 1.3 644))
 
 ; little script that sets env vars and starts the lurette build
   (make_lurette (lurette/27_make_luret 1.15 755))

source/control.ml

@@ -110,8 +110,8 @@ let (dec : string -> state -> state) =
 (* exported *)
 let (return : string -> state -> int) =
   fun id st -> 
-    fst (StringMap.find id st)
-
+    try fst (StringMap.find id st)
+    with _ -> failwith ("*** " ^ id ^ " is an undefined control expression.\n")
 (* exported *)
 let (return_comp : string -> state -> int) =
   fun id st ->