shithub: mc

Info  •  Files  •  Log  •  Branches

Fix chartype range.

	>= base, not > base.

--- a/lib/std/chartype.myr

+++ b/lib/std/chartype.myr

@@ -1235,7 +1235,7 @@

 		v =  (c - 'A' + 10) castto(@a::(integral,numeric))

 	;;

-	if v < 0 || v > (base castto(@a::(integral,numeric)))

+	if v < 0 || v >= (base castto(@a::(integral,numeric)))

 		-> -1

 	;;

 	-> v