Clean up and remove edge cases in strfind.

1 files changed, 2 insertions, 6 deletions

diff --git a/mbld/test.myr b/mbld/test.myr
index cc9a304..bf666fd 100644
--- a/mbld/test.myr
+++ b/mbld/test.myr
@@ -124,11 +124,7 @@ const runtest = {b, n, targs, isbench, failed
 
 const matchtest = {name, pat
 	match std.strfind(pat, ":")
-	| `std.Some i:	pat = pat[:i]
-	| `std.None:	/* ok */
-	;;
-	match std.strfind(name, pat)
-	| `std.Some _:	-> true
-	| `std.None:	-> false
+	| `std.Some i:	-> std.strhas(name, pat[:i])
+	| `std.None:	-> std.strhas(name, pat)
 	;;
 }