Restrict clone location to single line

PaulKlint · PaulKlint · commit ecfc7672ec8b · 2025-12-06T11:03:48.000+01:00
diff --git a/src/analysis/typepal/Collector.rsc b/src/analysis/typepal/Collector.rsc
@@ -1016,7 +1016,7 @@ Collector newCollector(str modelName, map[str,Tree] namedTrees, TypePalConfig co
             str txt = readFile(l);
             int k = findFirst(txt, "\n");
             if(k >= 0){
-                return l[length=k][end=<l.begin.line+1,0>];
+                return l[length=k][end=<l.begin.line,k>];
             }
         } catch _:;
         return l;

Original file line number	Diff line number	Diff line change
`@@ -1016,7 +1016,7 @@ Collector newCollector(str modelName, map[str,Tree] namedTrees, TypePalConfig co`
`1016`	`1016`	`str txt = readFile(l);`
`1017`	`1017`	`int k = findFirst(txt, "\n");`
`1018`	`1018`	`if(k >= 0){`
`1019`		`- return l[length=k][end=<l.begin.line+1,0>];`
	`1019`	`+ return l[length=k][end=<l.begin.line,k>];`
`1020`	`1020`	`}`
`1021`	`1021`	`} catch _:;`
`1022`	`1022`	`return l;`