matchAndEvalPatternExpr :: Name -> Env -> [Expr] -> [Pattern] -> ThrowError Expr
matchAndEvalPatternExpr fname _ es [] = throwError $ PatternFallthrough fname es
matchAndEvalPatternExpr :: Name -> Env -> [Expr] -> [Pattern] -> ThrowError Expr
matchAndEvalPatternExpr fname _ es [] = throwError $ PatternFallthrough fname es
matchAndEvalPatternExpr fname _ es [] = throwError $ PatternFallthrough fname es