Fixed error intercalateAnd and intercalateOr.

usethesource · Mar 20, 2024 · 597507f · 597507f
1 parent c6a4500
commit 597507f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/analysis/typepal/Messenger.rsc b/src/analysis/typepal/Messenger.rsc
@@ -40,7 +40,7 @@ str intercalateAnd(list[str] strs){
       case 1: return strs[0];
       default: {
                 dist = distribution(strs);
-                newstrs = [(dist[key] > 1 ? "<dist[key]> x " : "") + "`<key>`" | key <- strs];
+                newstrs = [(dist[key] > 1 ? "<dist[key]> x " : "") + "`<key>`" | key <- dist];
                 return intercalate(", ", newstrs[0..-1]) + " and " + newstrs[-1];
                }
       };
@@ -53,7 +53,7 @@ str intercalateOr(list[str] strs){
       case 2: return strs[0] == strs[1] ? strs[0] : "<strs[0]> or <strs[1]>";
       default: {
                 dist = distribution(strs);
-                newstrs = [(dist[key] > 1 ? "<dist[key]> x " : "") + key | key <- strs];
+                newstrs = [(dist[key] > 1 ? "<dist[key]> x " : "") + key | key <- dist];
                 return intercalate(", ", newstrs[0..-1]) + " or " + newstrs[-1];
                }
       };