Add a previous loop flow (iff it is reachable)

Property definitions

nitc $ FlowContext :: add_loop
	# Add a previous loop flow (iff it is reachable)
	private fun add_loop(flow: FlowContext)
	do
		if not flow.is_unreachable and not previous.has(flow) then
			loops.add(flow)
		end
	end
src/semantize/flow.nit:239,2--245,4