diff --git a/etherlink/bin_node/lib_dev/evm_context.ml b/etherlink/bin_node/lib_dev/evm_context.ml index 0dacf40206ece6636476894d32c3cf19fe7d8883..c6c07bce340d547ab78bbe688d0f5e149ae0df79 100644 --- a/etherlink/bin_node/lib_dev/evm_context.ml +++ b/etherlink/bin_node/lib_dev/evm_context.ml @@ -55,7 +55,7 @@ type session_state = { only once the commits in Irmin and SQlite have been confirmed. *) mutable future_block_state : future_block_state option; (** This value starts at None to prevent inclusion confirmation - handling on an incomplete stream after startup. + handling on an incomplete stream after startup. In the case where we find a divergence between the next_blueprint_number and the one received by Next_block_info, we lock single transaction executions by setting this to None again. *) @@ -1153,6 +1153,9 @@ module State = struct (* TODO: support extracting the execution gas *) (Z.zero, receipts) in + let*! evm_state = + Evm_state.clear_block_storage chain_family block evm_state + in return (evm_state, receipts, execution_gas) in List.iter (Lwt_watcher.notify receipt_watcher) receipts ;