anchor.diff:                Int64 = fun value optOrigin -> Bool ((value = 0L), optOrigin)
                 Single = fun value optOrigin -> Bool ((value = 0.0f), optOrigin)
                 Double = fun value optOrigin -> Bool ((value = 0.0), optOrigin)
  -              Vector2 = fun _ optOrigin -> Violation.make ("invalidArgumentType/unary/conversion/bool", "Cannot convert a vector to a bool.", optOrigin)
  +              Vector2 = fun _ optOrigin -> Violation (["invalidArgumentType"; "unary"; "conversion"; "bool"], "Cannot convert a vector to a bool.", optOrigin)
                 String = fun value optOrigin -> Bool (scvalue value, optOrigin)
  -              List = fun _ optOrigin -> Violation.make ("invalidArgumentType/unary/conversion/bool", "Cannot convert a list to a bool.", optOrigin) }
  +              List = fun _ optOrigin -> Violation (["invalidArgumentType"; "unary"; "conversion"; "bool"], "Cannot convert a list to a bool.", optOrigin) }
       
           let Int =
               { Bool = fun value optOrigin -> Int ((if value then 1 else 0), optOrigin)
  
positive.code:               Double = fun left right optOrigin -> Bool ((left < right), optOrigin)
                Vector2 = fun left right optOrigin -> Bool ((left.LengthSquared < right.LengthSquared), optOrigin)
                String = fun left right optOrigin -> Bool ((left < right), optOrigin)
                List = fun _ _ optOrigin -> Violation.make ("invalidArgumentType/binary/comparison/lt", "Cannot compare lists.", optOrigin) }
      
          let Gt =
              { Bool = fun left right optOrigin -> Bool ((left > right), optOrigin)
  
negative.code:                 match conditionEvaled.Evaled with
                  | Violation _ -> Some (Result (conditionEvaled.Evaled, result.Env))
                  | Bool (bool, _) -> if bool then Some (eval consequent env) else None
                  | _ -> Some (Result (Violation (["invalidCaseCondition"], "Must provide an expression that evaluates to a bool in a case condition.", optOrigin), env)))
              (Result (Unit optOrigin, env))
              exprPairs
  
  