Merge branch 'Umur-reducer-dev' into reducer-dev
This commit is contained in:
commit
f97751b989
|
@ -140,13 +140,13 @@ let dispatchMacroCall = (
|
|||
expressionValue,
|
||||
) => {
|
||||
let value = switch expressionValue {
|
||||
| EValue(aValue) => aValue
|
||||
| ExpressionT.EValue(aValue) => aValue
|
||||
| _ => EvSymbol("internal")
|
||||
}
|
||||
Js.Dict.set(acc, key, value)
|
||||
acc
|
||||
})
|
||||
externalBindings->EvRecord->ExpressionT.EValue->Ok
|
||||
externalBindings->ExpressionValue.EvRecord->ExpressionT.EValue->Ok
|
||||
}
|
||||
|
||||
let doBindExpression = (expression: expression, bindings: ExpressionT.bindings) =>
|
||||
|
|
|
@ -75,7 +75,7 @@ let rec reduceExpression = (expression: t, bindings: T.bindings): result<express
|
|||
let parameterList = parameters->Belt.List.fromArray
|
||||
let zippedParameterList = parameterList->Belt.List.zip(args)
|
||||
let bindings = Belt.List.reduce(zippedParameterList, defaultBindings, (a, (p, e)) =>
|
||||
a->Belt.Map.String.set(p, e->EValue)
|
||||
a->Belt.Map.String.set(p, e->T.EValue)
|
||||
)
|
||||
let newExpression = Builder.passToFunction(
|
||||
"$$bindExpression",
|
||||
|
|
Loading…
Reference in New Issue
Block a user