diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 13:35:20 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 13:35:20 +0200 |
| commit | feefb97cf9118c8e5d7018e33887a371dadc5eab (patch) | |
| tree | 33c42222df642813b726f5cc085d0d3569e441a1 /module/output/terminal.scm | |
| parent | Remove old C code. (diff) | |
| download | calp-feefb97cf9118c8e5d7018e33887a371dadc5eab.tar.gz calp-feefb97cf9118c8e5d7018e33887a371dadc5eab.tar.xz | |
Minor cleanup in scheme code.
Diffstat (limited to 'module/output/terminal.scm')
| -rw-r--r-- | module/output/terminal.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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))))))) |