syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor readjustment to permit logging of full gestalt of worlds

This commit is contained in:
Tony Garnock-Jones 2014-06-18 18:36:05 -04:00
parent a8b0bd24e8
commit 0c0035e2e2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
minimart/core.rkt
View File

@ -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