diff --git a/packages/squiggle-lang/src/rescript/Reducer/Reducer_Expression/Reducer_Expression.res b/packages/squiggle-lang/src/rescript/Reducer/Reducer_Expression/Reducer_Expression.res index 8498c294..d599fe7f 100644 --- a/packages/squiggle-lang/src/rescript/Reducer/Reducer_Expression/Reducer_Expression.res +++ b/packages/squiggle-lang/src/rescript/Reducer/Reducer_Expression/Reducer_Expression.res @@ -119,7 +119,8 @@ let rec reduceExpression = (expression: t, bindings: T.bindings): result => switch expression { - | T.EValue(value) => expression->Ok + | T.EValue(_value) => expression->Ok + | T.EBindings(_value) => expression->Ok | T.EList(list) => { let racc: result, 'e> = list->Belt.List.reduceReverse(Ok(list{}), ( racc, @@ -155,6 +156,7 @@ let rec reduceExpression = (expression: t, bindings: T.bindings): resultResult.flatMap(acc => acc->reduceValueList) } + | _ => RETodo("Error: Bindings cannot be reduced to values")->Error } let rExpandedExpression: result = expression->seekMacros(bindings)