shithub: mc

Info  •  Files  •  Log  •  Branches

Make 'test' work again.

--- a/libstd/intparse.myr

+++ b/libstd/intparse.myr

@@ -50,7 +50,7 @@

 	while s.len != 0

 		(c, s) = striter(s)

 		cv = charval(c, base)

-		if cv > 0

+		if cv >= 0

 			v *= (base castto(@a::(tcint,tcnum,tctest)))

 			v += cv

 		else

--- a/libstd/test.myr

+++ b/libstd/test.myr

@@ -121,13 +121,10 @@

 }

 const printenv = {name

-	var env

-	var ok

-

-	(env, ok) = std.getenv(name)

-	if !ok

-		std.put("No env var %s is set\n", name)

-	else

+	match std.getenv(name)

+	| `std.Some env:

 		std.put("Value of %s is %s\n", name, env)

+	| `std.None:

+		std.put("No env var %s is set\n", name)

 	;;

 }