Source

ocaml-bert / bert.ml

Diff from to
 	  Ok( Nil, Str.string_after local_bin 1);
       | 'k' -> (* STRING_EXT *)
 	  let len = (int_of_char (String.get local_bin 1))*256 + (int_of_char (String.get local_bin 2)) in
-	    print_int len;
 	    Ok( String( String.sub local_bin 3 len ), Str.string_after local_bin (len+3) );
       | 'l' -> (* LIST_EXT *)
 	  let len = make_int32 (String.sub local_bin 1 5) in