From 1c31d03bf31c489e6826f341c53dfa3a4a76f144 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Mon, 2 Dec 2024 20:01:13 +0100
Subject: pkgs/apply-config: reasonable exit values

turns out gauche does not assume 0 if main doesn't return a number
---
 pkgs/apply-config/apply-config | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'pkgs/apply-config')

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)
-- 
cgit v1.2.3