summaryrefslogtreecommitdiff
path: root/catbird/node.scm
diff options
context:
space:
mode:
Diffstat (limited to 'catbird/node.scm')
-rw-r--r--catbird/node.scm13
1 files changed, 1 insertions, 12 deletions
diff --git a/catbird/node.scm b/catbird/node.scm
index 2553ba3..bc158a5 100644
--- a/catbird/node.scm
+++ b/catbird/node.scm
@@ -33,9 +33,7 @@
tree-in-view?
children
for-each-child
- on-boot
pick
- reboot
child-ref &
attach-to
replace
@@ -77,26 +75,17 @@
(define-method (initialize (node <node>) initargs)
(next-method)
- (apply attach-to node (get-keyword #:children initargs '()))
- (on-boot node))
+ (apply attach-to node (get-keyword #:children initargs '())))
(define-method (sort-children (node <node>))
(set! (children node) (sort-by-rank/ascending (children node))))
-(define-method (on-boot (node <node>))
- #t)
-
(define-method (on-change (node <node>) slot-name old new)
(case slot-name
((rank)
;; Re-sort parent when rank of child node changes.
(and=> (parent node) sort-children))))
-(define-method (reboot (node <node>))
- (for-each-child detach node)
- (with-agenda (agenda node) (reset-agenda))
- (on-boot node))
-
(define-method (write (node <node>) port)
(define (strip-angle-brackets str)
(let ((start (if (string-prefix? "<" str) 1 0))