diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 19:37:14 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 19:37:14 +0200 |
| commit | 2b0657a221d9b4f87450b2a0689951f409a0e3f0 (patch) | |
| tree | 5a1c8f6615e6e06e862d5329d4c2535852102454 | |
| parent | Add option to disable everything. (diff) | |
| download | calp-2b0657a221d9b4f87450b2a0689951f409a0e3f0.tar.gz calp-2b0657a221d9b4f87450b2a0689951f409a0e3f0.tar.xz | |
Remembered about define-values existance.
| -rw-r--r-- | module/output/terminal.scm | 6 |
1 files changed, 1 insertions, 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 |