mkarray "e_blockqueue" store

@defun "e_nextblock" {
	"e_blockqueue" swapoutvar
	arrlen 1 < if
		"ERROR: blockqueue empty while requesting nextblock" print
		error
	end
	0 arridx
	swap
	arrpopf "e_blockqueue" store
}

@defun "e_peekblock" {
	"e_blockqueue" swapoutvar
	arrlen 2 < if
		0
	else
		1 arridx
	end
	swap
	"e_blockqueue" store
}