diff options
Diffstat (limited to '')
| -rw-r--r-- | src/Print.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/Print.ml b/src/Print.ml index 911de5e3..25434eeb 100644 --- a/src/Print.ml +++ b/src/Print.ml @@ -792,12 +792,7 @@ module CfimAst = struct in (* Arguments *) - let inputs = def.locals in - let ret_var, inputs = - match inputs with - | [] -> failwith "Inconsistent signature" - | ret_var :: inputs -> (ret_var, inputs) - in + let inputs = List.tl def.locals in let inputs, _aux_locals = Utilities.list_split_at inputs def.arg_count in let args = List.combine inputs sg.inputs in let args = |