pkgs/apply-config: reasonable exit values

turns out gauche does not assume 0 if main doesn't return a number

1 files changed, 3 insertions, 1 deletions

diff --git a/pkgs/apply-config/apply-config b/pkgs/apply-config/apply-config
index c411ce1..4fea8ca 100755
--- a/pkgs/apply-config/apply-config
+++ b/pkgs/apply-config/apply-config
@@ -84,7 +84,9 @@ Options:
    (let ([built-config (build-config)])
      (log-verbose (format "built config is ~a" built-config))
      (install-in-env built-config)
-     (switch-to-configuration built-config))))
+     (switch-to-configuration built-config))
+
+   0))
 
 
 (define (build-config)