From 0c0035e2e263ac0b42dc0afb825d81652613ef83 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 18 Jun 2014 18:36:05 -0400 Subject: [PATCH] Minor readjustment to permit logging of full gestalt of worlds --- minimart/core.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/minimart/core.rkt b/minimart/core.rkt index ab0435f..e8f7efe 100644 --- a/minimart/core.rkt +++ b/minimart/core.rkt @@ -366,8 +366,11 @@ ;; World -> World ;; Updates the World's cached copy of the union of its partial- and downward-gestalts. (define (update-full-gestalt w) - (struct-copy world w [full-gestalt - (gestalt-union (world-partial-gestalt w) (world-downward-gestalt w))])) + (define new-full-gestalt (gestalt-union (world-partial-gestalt w) (world-downward-gestalt w))) + ;; (log-info "World ~a new full gestalt:\n~a" + ;; (pid-stack) + ;; (gestalt->pretty-string new-full-gestalt)) + (struct-copy world w [full-gestalt new-full-gestalt])) ;; World Gestalt (Option PID) -> World ;; Constructs and enqueues a PendingEvent describing a change to the