diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 12:58:36 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:43 +0200 |
commit | 13f6f77ddee9e3e23c43d29ede5f1b39364b451f (patch) | |
tree | 27fc2f52da119d3ab24bd7aef1268d244ef2b077 /module/calp/terminal.scm | |
parent | Remove accidentially duplicated tests from merge. (diff) | |
download | calp-13f6f77ddee9e3e23c43d29ede5f1b39364b451f.tar.gz calp-13f6f77ddee9e3e23c43d29ede5f1b39364b451f.tar.xz |
Made displayln into a library export.
Diffstat (limited to 'module/calp/terminal.scm')
-rw-r--r-- | module/calp/terminal.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/module/calp/terminal.scm b/module/calp/terminal.scm index 316421eb..c4b30a54 100644 --- a/module/calp/terminal.scm +++ b/module/calp/terminal.scm @@ -6,6 +6,7 @@ :use-module ((srfi srfi-41) :select (stream-car)) :use-module (srfi srfi-88) :use-module (hnh util) + :use-module ((hnh util io) :select (displayln)) :use-module (vulgar) :use-module (vulgar info) :use-module (vulgar color) @@ -84,10 +85,6 @@ (displayln (box-top #\┴ #\─ date-width (+ summary-width 2) (1+ location-width)))) -(define (displayln a) - (display a) (newline)) - - (define-class <view> () (event-set getter: get-event-set init-keyword: event-set:) (active-element accessor: active-element |