test/Tools/isac/Minisubpbl/530-error-Check_Elementwise.sml
changeset 59831 edf1643edde5
parent 59825 b40d5da06c59
child 59839 0688613fc053
     1.1 --- a/test/Tools/isac/Minisubpbl/530-error-Check_Elementwise.sml	Wed Mar 18 14:51:58 2020 +0100
     1.2 +++ b/test/Tools/isac/Minisubpbl/530-error-Check_Elementwise.sml	Wed Mar 18 15:23:15 2020 +0100
     1.3 @@ -55,7 +55,7 @@
     1.4  "~~~~~ and do_next , args:"; val (ptp as (pt, pos as (p, p_))) = (pt, ip);
     1.5      (*if*) Celem.e_metID = get_obj g_metID pt (par_pblobj pt p) (*else*);
     1.6          val thy' = get_obj g_domID pt (par_pblobj pt p);
     1.7 -	      val (srls, (ist, ctxt), sc) = LItool.from_pblobj_or_detail' thy' (p,p_) pt;
     1.8 +	      val ((ist, ctxt), sc) = LItool.resume_prog thy' (p,p_) pt;
     1.9  
    1.10      val Next_Step (_, _, Check_elementwise' _) =
    1.11         (*case*) LI.find_next_step sc (pt, pos) ist ctxt (*of*);