glchapman

module Imperative

open System

[<Struct>]
type BlockResult<'T> = NoValue | Return of 'T | Continue | Break with
    member this.Close() =
        match this with
        | NoValue -> ValueNone
        | Return x -> ValueSome x