anchor.diff:                                              let nonPersistent = not (Reflection.isPropertyPersistentByName propertyName)
                                               match property.PropertyValue with
                                               | :? DesignerProperty as dp ->
  -                                                match ScriptingWorld.tryExport property.PropertyType expr world with
  +                                                match ScriptingWorld.tryExport dp.DesignerType expr world with
                                                   | Some propertyValue ->
                                                       let propertyValue = { dp with DesignerValue = propertyValue }
                                                       let property = { PropertyType = property.PropertyType; PropertyValue = propertyValue }
  
positive.code:             | None -> Right struct (context, world)
  
          static member internal tryImportEvent evt world =
              match ScriptingWorld.tryImport evt.DataType evt.Data world with
              | Some dataImported ->
                  let evtRecord =
                      Record
  
negative.code:                 let eventAddress = Relation.resolve scriptContext.SimulantAddress eventRelation
                  let stream =
                      Stream.make eventAddress |>
                      Stream.map box |>
                      Stream.mapEffect (fun (evt : Event<obj, _>) world ->
                          match World.tryImportEvent evt world with
                          | Some evtImported -> (Some evtImported |> box, world)
  