[gnunet-scheme] 43/324: scripts: publish-store: exit after main function

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 950028a0dee09bde00625bc732547561dd73248b
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat Jan 23 19:41:13 2021 +0100

    scripts: publish-store: exit after main function
    
    * gnu/gnunet/scripts/publish-store.scm
      (main): move code to 'inner-main' and call 'exit'
      (inner-main): move code from 'main'
---
 gnu/gnunet/scripts/publish-store.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/gnunet/scripts/publish-store.scm 
b/gnu/gnunet/scripts/publish-store.scm
index 5b56e86..f440d95 100644
--- a/gnu/gnunet/scripts/publish-store.scm
+++ b/gnu/gnunet/scripts/publish-store.scm
@@ -98,6 +98,10 @@ GNUnet options
   -n, --noindex      Do not store files by name in the local GNUnet")
 
     (define (main arguments)
+      (inner-main arguments)
+      (exit 0))
+
+    (define (inner-main arguments)
       (let ((options (getopt-long arguments %options-specification)))
        (cond ((option-ref options 'version #f)
               (display "scheme-gnunet publish-store v0.0"

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.