Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[fix] compiler, ei, rpc: When the function in the explicit map is rew…

…rited as 'one lambda' we should apply all arguments in the first params block
  • Loading branch information...
commit b180ef14e10a75a309a4b36f313edd55a007b393 1 parent f963c98
@BourgerieQuentin BourgerieQuentin authored
Showing with 3 additions and 2 deletions.
  1. +3 −2 opa/opa_InsertRemote.ml
View
5 opa/opa_InsertRemote.ml
@@ -1,5 +1,5 @@
(*
- Copyright © 2011 MLstate
+ Copyright © 2011, 2012 MLstate
This file is part of OPA.
@@ -642,7 +642,8 @@ let generate_skeleton explicit_map ~annotmap ~stdlib_gamma ~gamma ~side expr =
if is_a_function then
let args_ty = list_expr_ty @ list_expr_row @ list_expr_col in
match number_of_lambdas with
- | `one_lambda -> full_apply gamma annotmap expr args_ty list_expr_val
+ | `one_lambda ->
+ full_apply gamma annotmap expr (args_ty @ list_expr_val) []
| `two_lambdas ->
let annotmap, apply1 = QmlAstCons.TypedExpr.apply gamma annotmap expr args_ty in
QmlAstCons.TypedExpr.apply gamma annotmap apply1 list_expr_val

0 comments on commit b180ef1

Please sign in to comment.
Something went wrong with that request. Please try again.