1.1 --- a/src/Tools/isac/BaseDefinitions/rule-set.sml	Tue May 31 10:17:11 2022 +0200
     1.2 +++ b/src/Tools/isac/BaseDefinitions/rule-set.sml	Tue May 31 11:00:15 2022 +0200
     1.3 @@ -65,12 +65,12 @@
     1.4      "(Rule_Def.Repeat {id = " ^ id ^ ", preconds = " ^ UnparseC.terms preconds ^ ", rew_ord = " ^ Rewrite_Ord.to_string rew_ord
     1.5      ^ ",\n  erls = _, srls = _, calc = _, errpatts = _, "
     1.6      ^ ",\n  rules = " ^ Rule.s_to_string rules
     1.7 -    ^ ",\n  rules = " ^ Rule_Def.rule_to_string scr ^ "})"
     1.8 +    ^ ",\n  rules = " ^ Rule_Def.program_to_string scr ^ "})"
     1.9    | to_string (Rule_Def.Sequence {id, preconds, rew_ord, erls = _, srls = _, calc = _, errpatts = _, rules, scr}) =
    1.10      "(Rule_Def.Repeat {id = " ^ id ^ ", preconds = " ^ UnparseC.terms preconds ^ ", rew_ord = " ^ Rewrite_Ord.to_string rew_ord
    1.11      ^ ",\n  erls = _, srls = _, calc = _, errpatts = _, "
    1.12      ^ ",\n  rules = " ^ Rule.s_to_string rules
    1.13 -    ^ ",\n  rules = " ^ Rule_Def.rule_to_string scr ^ "})"
    1.14 +    ^ ",\n  rules = " ^ Rule_Def.program_to_string scr ^ "})"
    1.15    | to_string (Rule_Def.Rrls _)  = "Rule_Def.Rrls _"
    1.16  
    1.17  fun append_rules id Rule_Def.Empty r = (*.. required for append_erls_rules *)