let unregister_source_buffer sb = registered_source_buffers := List.filter (fun sb2 -> sb2#get_oid <> sb#get_oid) !registered_source_buffers