summaryrefslogtreecommitdiff
path: root/lib/std/sleq.myr
blob: e913cd6ae26bd00a98c7be9a215880bfda52c641 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use "types"
use "memops"

pkg std =
	generic sleq	: (a : @a[:], b : @a[:] -> bool)
;;

generic sleq = {a, b
	if a.len == b.len
		-> memeq((a : byte#), (b : byte#), a.len)
	else
		-> false
	;;
}