From 396f288a9fb1fd3e76f8829ae97def94d8845ef7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 4 May 2020 17:32:48 +0200
Subject: Repair term + add --help.

---
 module/output/terminal.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'module/output')

diff --git a/module/output/terminal.scm b/module/output/terminal.scm
index 47367095..ddd5df9b 100644
--- a/module/output/terminal.scm
+++ b/module/output/terminal.scm
@@ -8,6 +8,7 @@
   #:use-module (srfi srfi-41)
   #:use-module (srfi srfi-41 util)
   #:use-module (util)
+  #:use-module (util app)
   #:use-module (vulgar)
   #:use-module (vulgar info)
   #:use-module (vulgar color)
@@ -69,7 +70,10 @@
 (define (displayln a)
   (display a) (newline))
 
-(define (main-loop date event-stream)
+(define-method (main-loop date)
+
+  (define event-stream (getf 'event-set))
+
   (define cur-event 0)
 
   (define-values (height width) (get-terminal-size))
-- 
cgit v1.2.3