Optimize `peek-char'.