let peek_stream stream = match stream.ist_dat with [] -> Isingle (exp_constant_zero ~loc:stream.ist_loc) | hd::tl -> hd