diff options
| -rw-r--r-- | ravanan/ui.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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)) |