Michelson: fix typo in runtime error message

This commit is contained in:
Benjamin Canou 2017-07-28 15:05:23 +02:00
parent 69736ec55b
commit 31a2728909

View File

@ -576,7 +576,7 @@ and execute ?log origination orig source ctxt storage script amount arg qta =
parse_data ctxt arg_type arg >>=? fun arg -> parse_data ctxt arg_type arg >>=? fun arg ->
parse_data ctxt storage_type storage >>=? fun storage -> parse_data ctxt storage_type storage >>=? fun storage ->
trace trace
(Runtime_contract_error (source, code, arg_type, ret_type_full, storage_type)) (Runtime_contract_error (source, code, arg_type, ret_type, storage_type))
(interp ?log origination qta orig source amount ctxt lambda (arg, storage)) (interp ?log origination qta orig source amount ctxt lambda (arg, storage))
>>=? fun (ret, qta, ctxt, origination) -> >>=? fun (ret, qta, ctxt, origination) ->
let ret, storage = ret in let ret, storage = ret in