From 9564563199060f352cdbe8c77f76950d8cf1c59a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 14 Mar 2023 21:13:20 +0100
Subject: [PATCH] Add help to orig.

---
 brmsaptool-orig.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/brmsaptool-orig.scm b/brmsaptool-orig.scm
index 03b1228..edf10bf 100644
--- a/brmsaptool-orig.scm
+++ b/brmsaptool-orig.scm
@@ -182,7 +182,9 @@
 ;; Handle options
 (command-line
  print-help
- (-h "Help" print-help)
+ (-h () "Help"
+     (print-help)
+     (exit 0))
  (-M (dn) "Members dir" (*members-directory* dn))
  (-mi (id) "Id" 
   (action 'member-by-id)