(set_block): New function. (poplevel): If using a previously created block, don't insert it into the parent level. From-SVN: r2015
