Write up to 8 Bool in a byte

To be used with BinaryReader::read_bits.

Ensure: bits.length <= 8

Property definitions

binary :: binary $ Writer :: write_bits
	# Write up to 8 `Bool` in a byte
	#
	# To be used with `BinaryReader::read_bits`.
	#
	# Ensure: `bits.length <= 8`
	fun write_bits(bits: Bool...)
	do
		assert bits.length <= 8

		var int = 0
		for b in bits.length.times do
			if bits[b] then int |= 1 << (7 - b)
		end

		write_byte int
	end
lib/binary/binary.nit:75,2--90,4