src/Tools/isac/BaseDefinitions/rule-set.sml
changeset 59919 3a7fb975af9d
parent 59914 ab5bd5c37e13
child 59962 6a59d252345d
     1.1 --- a/src/Tools/isac/BaseDefinitions/rule-set.sml	Tue Apr 28 19:39:06 2020 +0200
     1.2 +++ b/src/Tools/isac/BaseDefinitions/rule-set.sml	Wed Apr 29 09:03:01 2020 +0200
     1.3 @@ -96,7 +96,7 @@
     1.4  	    preconds = union (op =) pc1 pc2,	    
     1.5  	    erls = merge (merge_ids er1 er2) er1 er2,
     1.6  	    srls = merge (merge_ids sr1 sr2) sr1 sr2,
     1.7 -	    calc = union Exec_Def.calc_eq ca1 ca2,
     1.8 +	    calc = union Eval_Def.calc_eq ca1 ca2,
     1.9  		  rules = union Rule.equal rs1 rs2,
    1.10        errpatts = union (op =) eps1 eps2}
    1.11    | merge id
    1.12 @@ -109,7 +109,7 @@
    1.13  	    preconds = union (op =) pc1 pc2,	    
    1.14  	    erls = merge (merge_ids er1 er2) er1 er2,
    1.15  	    srls = merge (merge_ids sr1 sr2) sr1 sr2,
    1.16 -	    calc = union Exec_Def.calc_eq ca1 ca2,
    1.17 +	    calc = union Eval_Def.calc_eq ca1 ca2,
    1.18  		  rules = union Rule.equal rs1 rs2,
    1.19        errpatts = union (op =) eps1 eps2}
    1.20    | merge id _ _ = error ("merge: \"" ^ id ^