Fixed a potential issue with lambdas returning multiple expressions

Rickasaurus · Dec 10, 2014 · d396974 · d396974
1 parent 5ebbe95
commit d396974
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Barb/Reduce.fs b/Barb/Reduce.fs
@@ -146,8 +146,8 @@ let resolveExpression exprs initialBindings settings (finalReduction: bool) =
                     | Lambda {Params = []; Contents = lambdaContents; Bindings = lambdaBindings } -> 
                         let totalBindings = Seq.concat [(Map.toSeq initialBindings); (Map.toSeq lambdaBindings)] |> Map.ofSeq
                         match reduceExpressions [] [lambdaContents] totalBindings |> fst with
-                        | {Expr = SubExpression (v :: [])} :: _ -> v |> Some
-                        | {Expr = SubExpression _ } :: _ -> None
+                        | {Expr = SubExpression (v :: [])} :: [] -> v |> Some
+                        | {Expr = SubExpression _ } :: [] -> None
                         | result :: [] -> result |> Some
                         | many -> None
                     | And (lExpr, rExpr) ->