diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2020-09-29 20:02:41 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2020-09-29 20:04:20 -0400 |
| commit | 07a48d5da245ce90bf20e9932f3e8afe67bfb48c (patch) | |
| tree | adabc3e0d813582f8da06b69b4316cbb7f9ec07c | |
| parent | 4ca1bbe864419f4b1ac4f7dd0ae07f9fb259c07f (diff) | |
node: Use #:init-thunk instead of #:init-form for agenda slot.
| -rw-r--r-- | starling/node.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/starling/node.scm b/starling/node.scm index ce7ff80..162cd81 100644 --- a/starling/node.scm +++ b/starling/node.scm @@ -73,7 +73,7 @@ ;; Children indexed by name for fast lookup. (children-by-name #:getter children-by-name #:init-thunk make-hash-table) ;; Script scheduler. - (agenda #:getter agenda #:init-form (make-agenda)) + (agenda #:getter agenda #:init-thunk make-agenda) ;; Flips to #t upon first entering a scene. (booted? #:accessor booted? #:init-form #f) ;; Flips to #t when node is part of current scene. |