This commit is contained in:
Umur Ozkul 2022-05-19 19:07:57 +02:00
parent c496ae5cdd
commit 749fba2877

View File

@ -77,7 +77,7 @@ and reduceValueList = (valueList: list<expressionValue>, environment): result<
| list{EvCall(fName), ...args} => | list{EvCall(fName), ...args} =>
(fName, args->Belt.List.toArray)->BuiltIn.dispatch(environment, reduceExpression) (fName, args->Belt.List.toArray)->BuiltIn.dispatch(environment, reduceExpression)
| list{EvLambda(_lamdaCall)} => | list{EvLambda(_)} =>
valueList valueList
->Lambda.checkIfReduced ->Lambda.checkIfReduced
->Result.flatMap(reducedValueList => ->Result.flatMap(reducedValueList =>
@ -119,7 +119,7 @@ let evaluateUsingOptions = (
} }
/* /*
Evaluates MathJs code and bindings via Reducer and answers the result Evaluates Squiggle code and bindings via Reducer and answers the result
*/ */
let evaluate = (code: string): result<expressionValue, errorValue> => { let evaluate = (code: string): result<expressionValue, errorValue> => {
evaluateUsingOptions(~environment=None, ~externalBindings=None, code) evaluateUsingOptions(~environment=None, ~externalBindings=None, code)