anchor.diff:          | None ->
               match evaleds with
               | [||] -> isSelectedScreenTransitioning world
  -            | _ ->
  -                let violation = Scripting.Violation (["InvalidBindingInvocation"], "Incorrect number of arguments for binding '" + fnName + "' at:\n" + SymbolOrigin.tryPrint originOpt, None)
  -                struct (violation, world)
  -        | Some violation -> struct (violation, world)
  -
  -    let evalSelectScreenBinding fnName exprs originOpt world =
  -        let struct (evaleds, world) = World.evalManyInternal exprs world
  -        match Array.tryFind (function Scripting.Violation _ -> true | _ -> false) evaleds with
  -        | None ->
  -            match evaleds with
  -            | [|transitionState; screen|] -> selectScreen transitionState screen world
               | _ ->
                   let violation = Scripting.Violation (["InvalidBindingInvocation"], "Incorrect number of arguments for binding '" + fnName + "' at:\n" + SymbolOrigin.tryPrint originOpt, None)
                   struct (violation, world)
  
positive.code:             let violation = Scripting.Violation (["InvalidBindingInvocation"], "Could not invoke binding 'relate' due to: " + scstring exn, None)
              struct (violation, World.choose oldWorld)
  
      let tryGetIsSelectedScreenIdling world =
          let oldWorld = world
          try
              let result = World.tryGetIsSelectedScreenIdling world
              let value = result
              let value = ScriptingSystem.tryImport typeof<FSharpOption<Boolean>> value world |> Option.get
              struct (value, world)
          with exn ->
              let violation = Scripting.Violation (["InvalidBindingInvocation"], "Could not invoke binding 'tryGetIsSelectedScreenIdling' due to: " + scstring exn, None)
              struct (violation, World.choose oldWorld)
  
      let tryGetIsSelectedScreenTransitioning world =
          let oldWorld = world
          try
              let result = World.tryGetIsSelectedScreenTransitioning world
              let value = result
              let value = ScriptingSystem.tryImport typeof<FSharpOption<Boolean>> value world |> Option.get
              struct (value, world)
          with exn ->
              let violation = Scripting.Violation (["InvalidBindingInvocation"], "Could not invoke binding 'tryGetIsSelectedScreenTransitioning' due to: " + scstring exn, None)
              struct (violation, World.choose oldWorld)
  
      let isSelectedScreenIdling world =
          let oldWorld = world
          try
              let result = World.isSelectedScreenIdling world
              let value = result
              let value = ScriptingSystem.tryImport typeof<Boolean> value world |> Option.get
              struct (value, world)
          with exn ->
              let violation = Scripting.Violation (["InvalidBindingInvocation"], "Could not invoke binding 'isSelectedScreenIdling' due to: " + scstring exn, None)
              struct (violation, World.choose oldWorld)
  
      let isSelectedScreenTransitioning world =
          let oldWorld = world
          try
              let result = World.isSelectedScreenTransitioning world
              let value = result
              let value = ScriptingSystem.tryImport typeof<Boolean> value world |> Option.get
              struct (value, world)
          with exn ->
              let violation = Scripting.Violation (["InvalidBindingInvocation"], "Could not invoke binding 'isSelectedScreenTransitioning' due to: " + scstring exn, None)
              struct (violation, World.choose oldWorld)
  
      let selectScreen transitionState screen world =
          let oldWorld = world
          try
  
negative.code:             [
               ("resolve", { Fn = evalResolveBinding; Pars = [|"relation"|]; DocOpt = None })
               ("relate", { Fn = evalRelateBinding; Pars = [|"address"|]; DocOpt = None })
               ("selectScreen", { Fn = evalSelectScreenBinding; Pars = [|"transitionState"; "screen"|]; DocOpt = None })
               ("tryGetIsSelectedScreenIdling", { Fn = evalTryGetIsSelectedScreenIdlingBinding; Pars = [||]; DocOpt = None })
               ("tryGetIsSelectedScreenTransitioning", { Fn = evalTryGetIsSelectedScreenTransitioningBinding; Pars = [||]; DocOpt = None })
               ("isSelectedScreenIdling", { Fn = evalIsSelectedScreenIdlingBinding; Pars = [||]; DocOpt = None })
               ("isSelectedScreenTransitioning", { Fn = evalIsSelectedScreenTransitioningBinding; Pars = [||]; DocOpt = None })
               ("tryTransitionScreen", { Fn = evalTryTransitionScreenBinding; Pars = [|"destination"|]; DocOpt = None })
               ("transitionScreen", { Fn = evalTransitionScreenBinding; Pars = [|"destination"|]; DocOpt = None })
               ("setScreenSplash", { Fn = evalSetScreenSplashBinding; Pars = [|"splashDescriptor"; "destination"; "screen"|]; DocOpt = None })
  