From dcb1939e6deff6134686f9ae422389b630a1a4ad Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 11 Sep 2024 16:00:16 +0100
Subject: ui: Add docstrings.

* ravanan/ui.scm (warning, user-error): Add docstrings.
---
 ravanan/ui.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ravanan/ui.scm b/ravanan/ui.scm
index f8355b2..e7ca95c 100644
--- a/ravanan/ui.scm
+++ b/ravanan/ui.scm
@@ -21,9 +21,12 @@
             user-error))
 
 (define (warning fmt . args)
+  "Print warning. @var{fmt} and @var{args} are arguments to format."
   (apply format (current-error-port) fmt args)
   (newline))
 
 (define (user-error fmt . args)
+  "Print error message and exit with failure. @var{fmt} and @var{args} are
+arguments to format."
   (apply warning fmt args)
   (exit #f))
-- 
cgit v1.2.3