1.1 --- a/test/Tools/isac/Interpret/ctree.sml Mon Jul 18 09:51:51 2011 +0200
1.2 +++ b/test/Tools/isac/Interpret/ctree.sml Tue Jul 19 09:43:01 2011 +0200
1.3 @@ -118,7 +118,7 @@
1.4 "ctree.sml-------------- cappend on complete ctree from above ----";
1.5 val (pt', cuts) = cappend_form pt [1] (e_istate, e_ctxt) (str2term "Inform[1]");
1.6 "----------------------------------------------------------------/";
1.7 -(*========== inhibit exn WN110319 ==============================================
1.8 +
1.9 val (p,_,f,nxt,_,pt) = me nxt p [1] pt(*cappend_form: pos =[1]*);
1.10 val (p,_,f,nxt,_,pt) = me nxt p [1] pt(*cappend_atomic: pos =[1]*);
1.11 val (p,_,f,nxt,_,pt) = me nxt p [1] pt(*cappend_atomic: pos =[2]*);
1.12 @@ -144,6 +144,7 @@
1.13 else error "new behaviour in test: miniscript with mini-subpbl";
1.14
1.15 show_pt pt;
1.16 +(*========== inhibit exn WN110319 ==============================================
1.17 ============ inhibit exn WN110319 ============================================*)
1.18
1.19 (*=== inhibit exn ?=============================================================