From 4ca1bbe864419f4b1ac4f7dd0ae07f9fb259c07f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Tue, 29 Sep 2020 20:02:18 -0400
Subject: node: Make rank read-only.

---
 starling/node.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/starling/node.scm b/starling/node.scm
index dd94220..ce7ff80 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -64,7 +64,7 @@
   (name #:getter name #:init-form #f #:init-keyword #:name)
   ;; An integer value that determines priority order for
   ;; updating/rendering.
-  (rank #:accessor rank #:init-value 0 #:init-keyword #:rank)
+  (rank #:getter rank #:init-value 0 #:init-keyword #:rank)
   ;; The node that this node is attached to.  A node may only have one
   ;; parent.
   (parent #:accessor parent #:init-form #f)
-- 
cgit v1.2.3