From feefb97cf9118c8e5d7018e33887a371dadc5eab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sun, 6 Oct 2019 13:35:20 +0200
Subject: Minor cleanup in scheme code.

---
 module/output/terminal.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module/output/terminal.scm')

diff --git a/module/output/terminal.scm b/module/output/terminal.scm
index 37fe1b86..16ba31e9 100644
--- a/module/output/terminal.scm
+++ b/module/output/terminal.scm
@@ -138,7 +138,7 @@
                    (let ((ev ((@ (vcomponent primitive) %vcomponent-make) fname)))
                      (serialize-vcomponent ev (current-error-port))
 
-                     (push-child! (parent (list-ref events cur-event)) ev)
+                     (add-child! (parent (list-ref events cur-event)) ev)
                      (format (current-error-port) "Children: ~a~%start: ~a~%" (children ev)
                              (attr ev 'DTSTART))
                      (set! event-stream (stream-insert ev-time<? ev event-stream)))))))
-- 
cgit v1.2.3