bin/cl: Grow "$@" at the beginning

1 files changed, 4 insertions, 4 deletions

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 "$@"