# Copyright 2007 Kevin Reid under the terms of the MIT X license
# found at http://www.opensource.org/licenses/mit-license.html ................

pragma.syntax("0.9")

def fakeUnsealToken as DeepFrozen {}

interface Vine :DeepFrozen guards VineStamp :DeepFrozen {
  to run() :void
}

# XXX document this
def makeVine implements DeepFrozen {
  to asType() { return Vine }
  to run(target) {
    def vine implements VineStamp {
      to __optSealedDispatch(brand) {
        if (brand == fakeUnsealToken) { return target }
      }
      to run() {}
    }
    return vine
  }
}