really use lookup or insert

ben-schwen · ben-schwen · commit 337a0c2d508a · 2025-03-23T19:44:41.000+01:00
diff --git a/src/chmatch.c b/src/chmatch.c
@@ -59,7 +59,7 @@ static SEXP chmatchMain(SEXP x, SEXP table, int nomatch, bool chin, bool chmatch
   int nuniq=0;
   for (int i=0; i<tablelen; ++i) {
     const SEXP s = td[i];
-    hash_set(marks, s, chmatchdup ? -(++nuniq) : -i-1); // first time seen this string in table
+    hash_lookup_or_insert(marks, s, chmatchdup ? -(++nuniq) : -i-1); // first time seen this string in table
   }
   // in future if we need NAs in x not to be matched to NAs in table ...
   if (chmatchdup) {

Original file line number	Diff line number	Diff line change
`@@ -59,7 +59,7 @@ static SEXP chmatchMain(SEXP x, SEXP table, int nomatch, bool chin, bool chmatch`
`59`	`59`	`int nuniq=0;`
`60`	`60`	`for (int i=0; i<tablelen; ++i) {`
`61`	`61`	`const SEXP s = td[i];`
`62`		`- hash_set(marks, s, chmatchdup ? -(++nuniq) : -i-1); // first time seen this string in table`
	`62`	`+ hash_lookup_or_insert(marks, s, chmatchdup ? -(++nuniq) : -i-1); // first time seen this string in table`
`63`	`63`	`}`
`64`	`64`	`// in future if we need NAs in x not to be matched to NAs in table ...`
`65`	`65`	`if (chmatchdup) {`