Fixed serious bug where events are called in reversed order.

Former-commit-id: 3eef4df
bryanedds · Feb 14, 2015 · 2ff307e · 2ff307e
1 parent 96d18fa
commit 2ff307e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/InfinityRpg/InfinityRpg/InfinityRpg/CharacterFacets.fs b/InfinityRpg/InfinityRpg/InfinityRpg/CharacterFacets.fs
@@ -191,4 +191,4 @@ module CharacterCameraFacetModule =
             (Cascade, world)
 
         override facet.Register entity world =
-            monitor handleUpdate (observe UpdateEventAddress entity) world
+            monitor handleUpdate (observe UpdateEventAddress entity) world
diff --git a/Nu/Nu/Nu/WorldPrimitives.fs b/Nu/Nu/Nu/WorldPrimitives.fs
@@ -46,13 +46,13 @@ module WorldPrimitivesModule =
             else failwith "Event name cannot be empty."
 
         static member private getSortableSubscriptions getEntityPublishingPriority (subscriptions : SubscriptionEntry rQueue) world : (single * SubscriptionEntry) list =
-            List.fold
-                (fun subscriptions (key, simulant : Simulant, subscription) ->
+            List.foldBack
+                (fun (key, simulant : Simulant, subscription) subscriptions ->
                     let priority = simulant.GetPublishingPriority getEntityPublishingPriority world
                     let subscription = (priority, (key, simulant, subscription))
                     subscription :: subscriptions)
-                []
                 subscriptions
+                []
 
         static member private getSubscriptionsSorted (publishSorter : SubscriptionSorter) eventAddress world =
             let anyEventAddresses = World.getAnyEventAddresses eventAddress