This commit is contained in:
Umur Ozkul 2022-04-14 17:00:12 +02:00
parent 9b4f397859
commit fb63d44ab9

View File

@ -156,7 +156,7 @@ let reduceExpression = (expression: t, bindings: T.bindings): result<expressionV
) )
racc->Result.flatMap(acc => acc->reduceValueList) racc->Result.flatMap(acc => acc->reduceValueList)
} }
| _ => RETodo("Error: Bindings cannot be reduced to values")->Error | EBindings(_bindings) => RETodo("Error: Bindings cannot be reduced to values")->Error
} }
let rExpandedExpression: result<t, 'e> = expression->seekMacros(bindings) let rExpandedExpression: result<t, 'e> = expression->seekMacros(bindings)