From abe769c3936aa3063b38e04b45c15c921601cb52 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= Date: Thu, 15 Mar 2018 14:43:39 +0100 Subject: [PATCH] Alpha: don't burn `origination_burn` twice... --- src/proto_alpha/lib_protocol/src/script_interpreter.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_protocol/src/script_interpreter.ml b/src/proto_alpha/lib_protocol/src/script_interpreter.ml index 9dd22419c..fd54ceb0b 100644 --- a/src/proto_alpha/lib_protocol/src/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/src/script_interpreter.ml @@ -189,10 +189,9 @@ let rec interp Prim (0, K_code, [ Micheline.root code ], None) ], None)) in let storage = Micheline.strip_locations (unparse_data storage_type init) in Contract.spend_from_script ctxt source credit >>=? fun ctxt -> - Lwt.return Tez.(credit -? Constants.origination_burn) >>=? fun balance -> Contract.originate ctxt origination - ~manager ~delegate ~balance + ~manager ~delegate ~balance:credit ~script:({ code ; storage }, (dummy_code_fee, dummy_storage_fee)) ~spendable ~delegatable >>=? fun (ctxt, contract, origination) ->