From 2b0657a221d9b4f87450b2a0689951f409a0e3f0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 24 Apr 2019 19:37:14 +0200 Subject: Remembered about define-values existance. --- module/output/terminal.scm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/module/output/terminal.scm b/module/output/terminal.scm index bbe7f041..bfe5d2ab 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -52,11 +52,7 @@ (define (main-loop time event-stream) (define cur-event 0) - (define height 0) - (define width 0) - (let* ((h w (get-terminal-size))) - (set! height h - width w)) + (define-values (height width) (get-terminal-size)) (while #t (let ((events -- cgit v1.2.3