anchor.diff:                              match tail with
                               | [Prime.Atom (tagStr, _)]
                               | [Prime.String (tagStr, _)] ->
  -                                try let tagName = !!tagStr in Violation (Name.split [|'/'|] tagName, "User-defined error.", originOpt) :> obj
  +                                try let tagName = !!tagStr in Violation (Name.split [|'/'|] tagName, "User-defined violation.", originOpt) :> obj
                                   with exn -> Violation ([!!"InvalidViolationForm"], "Invalid violation form. Violation tag must be composed of 1 or more valid names.", originOpt) :> obj
                               | [Prime.Atom (tagStr, _); Prime.String (errorMsg, _)]
                               | [Prime.String (tagStr, _); Prime.String (errorMsg, _)] ->
  
positive.code:                             | _ -> Violation ([!!"InvalidSetForm"], "Invalid set form. Requires a name, a value expression, and an optional relation expression.", originOpt) :> obj
                          | "variableStream" ->
                              match tail with
                              | [Prime.Atom (nameStr, originOpt)]
                              | [Prime.String (nameStr, originOpt)] -> Stream (VariableStream nameStr, originOpt) :> obj
                              | _ -> Violation ([!!"InvalidVariableStreamForm"], "Invalid variable stream form. Requires a name.", originOpt) :> obj
                          | "eventStream" ->
                              match tail with
  
negative.code:             | (Int64 left, Int64 right) -> compare left right
              | (Single left, Single right) -> compare left right
              | (Double left, Double right) -> compare left right
              | (Vector2 left, Vector2 right) -> compare (left.X, left.Y) (right.X, right.Y) // TODO: intrinsic comparison for OpenTK.Vector2!
              | (String left, String right) -> compare left right
              | (Keyword left, Keyword right) -> compare left right
              | (Tuple left, Tuple right) -> compare left right
  