From da7171938a6f30480103df8a66c7bf67c5676bcf Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 6 Jan 2023 22:04:31 -0600
Subject: Allow cleaning to continue the script when paired

---
 vienna | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/vienna b/vienna
index 6af1eb4..1d060ce 100755
--- a/vienna
+++ b/vienna
@@ -87,7 +87,7 @@ main() {
     configure "$@"
     shift "$((OPTIND - 1))"
     # Further argument processing --- pre-build
-    preprocess "$@"
+    preprocess "$@" || shift
     # Prepare
     cd "$WORKD" || exit 2
     if test -f "$CONFIG"; then
@@ -142,10 +142,14 @@ preprocess() {
     case "${1:-ok}" in
         ok) ;;
         clean)
-            log vienna "clean"
+            log vienna clean
             rm -r "$OUTD"
             cleanup
-            exit
+            if [ $# -eq 0 ]; then
+		exit		# Quit when only cleaning
+	    else
+		return 1	# Otherwise, continue processing
+	    fi
             ;;
     esac
 }
-- 
cgit 1.4.1-21-gabe81