From 07a48d5da245ce90bf20e9932f3e8afe67bfb48c Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 29 Sep 2020 20:02:41 -0400 Subject: node: Use #:init-thunk instead of #:init-form for agenda slot. --- starling/node.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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. -- cgit v1.2.3