balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alpha: don't burn origination_burn twice...

Browse Source
This commit is contained in:
Grégoire Henry 2018-03-15 14:43:39 +01:00 committed by Benjamin Canou
parent a41d553162
commit abe769c393
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/proto_alpha/lib_protocol/src/script_interpreter.ml
View File

@ -189,10 +189,9 @@ let rec interp
Prim (0, K_code, [ Micheline.root code ], None) ], None)) in Prim (0, K_code, [ Micheline.root code ], None) ], None)) in
let storage = Micheline.strip_locations (unparse_data storage_type init) in let storage = Micheline.strip_locations (unparse_data storage_type init) in
Contract.spend_from_script ctxt source credit >>=? fun ctxt -> Contract.spend_from_script ctxt source credit >>=? fun ctxt ->
Lwt.return Tez.(credit -? Constants.origination_burn) >>=? fun balance ->
Contract.originate ctxt Contract.originate ctxt
origination origination
~manager ~delegate ~balance ~manager ~delegate ~balance:credit
~script:({ code ; storage }, (dummy_code_fee, dummy_storage_fee)) ~script:({ code ; storage }, (dummy_code_fee, dummy_storage_fee))
~spendable ~delegatable ~spendable ~delegatable
>>=? fun (ctxt, contract, origination) -> >>=? fun (ctxt, contract, origination) ->