eval.res

  let rec eval = (program: AST.program, env: environment) => {
    let result: ref<option<mObject>> = ref(None)
    let keep = ref(true)
    program.statements->Array.forEach(statement => {
      if keep.contents {
        result := evaluateStatement(Some(statement), env)

        result.contents->Option.forEach(contents => {
          switch contents {
          | MReturnValue({value}) => {
              result := Some(value)
              keep := false
            }
          | MError(_) => keep := false
          | _ => ()
          }
        })
      }
    })
    result.contents
  }