From fd05ecda88aaf5ddfcb2ab16f7469328d19b491f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 5 Dec 2023 22:22:27 +0100
Subject: [PATCH] Duck tiocgwinsz.

---
 src/tiocgwinsz.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/tiocgwinsz.scm b/src/tiocgwinsz.scm
index fb77d66..8d00ff8 100644
--- a/src/tiocgwinsz.scm
+++ b/src/tiocgwinsz.scm
@@ -25,8 +25,11 @@
 
 (declare (unit tiocgwinsz))
 
-(module
+(import duck)
+
+(module*
  tiocgwinsz
+ #:doc ("TTY terminal size support.")
  (
   tiocgwinsz
   )
@@ -50,7 +53,8 @@ if (ioctl(0, TIOCGWINSZ, &wss) == 0) {
 "
     ))
 
- (define (tiocgwinsz)
+ (define/doc (tiocgwinsz)
+   ("Returns the number of terminal rows and columns.")
    (let ((res (tiocgwinsz-ioctl)))
      (values (bitwise-and res #xffff)
 	     (arithmetic-shift res -16))))