From 26f57c646b600603a376169470f2f12b09f9533f Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Tue, 25 Oct 2022 00:14:19 -0300
Subject: bin/cl: Grow "$@" at the beginning

---
 bin/cl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'bin')

diff --git a/bin/cl b/bin/cl
index 6ecfbba..ee75b9a 100755
--- a/bin/cl
+++ b/bin/cl
@@ -257,13 +257,13 @@ case "$IMPL" in
 	clisp)
 		set -- -ansi -i "$MAIN" "$@"
 		if [ -n "$IMAGE" ]; then
-			set -- "$@" -M "$IMAGE"
+			set -- -M "$IMAGE" "$@"
 		fi
 		if [ "$NO_RC" = true ]; then
-			set -- "$@" -norc
+			set -- -norc "$@"
 		fi
 		if [ "$VERBOSE" = false ]; then
-			set -- "$@" -q -q
+			set -- -q -q "$@"
 		else
 			set -x
 		fi
@@ -289,7 +289,7 @@ case "$IMPL" in
 			set -- --core "$IMAGE" "$@"
 		fi
 		if [ "$NO_RC" = true ]; then
-			set -- "$@" --no-sysinit --no-userinit
+			set -- --no-sysinit --no-userinit "$@"
 		fi
 		if [ "$VERBOSE" = false ]; then
 			set -- --noinform "$@"
-- 
cgit v1.2.3