[PATCH] lang/racket-minimal: add -E flag for raco exe

This patch adds the `-E` flag to racket version 7.9. This change
has been added upstream[1] as a restult of github issue 3717[2].

[1]: https://github.com/racket/racket/commit/fac84630825fdb3780fcd7891fb50e637eb3f910
[2]: https://github.com/racket/racket/issues/3717

---
.../patches/patch-racket_exec_flag | 193 ++++++++++++++++++
1 file changed, 193 insertions(+)
create mode 100644 lang/racket-minimal/patches/patch-racket_exec_flag

diff --git lang/racket-minimal/patches/patch-racket_exec_flag lang/racket-minimal/patches/patch-racket_exec_flag
new file mode 100644
index 00000000000..f010c3f82f9
--- /dev/null
+++ lang/racket-minimal/patches/patch-racket_exec_flag
@@ -0,0 +1,193 @@
+diff --git src/bc/cmdline.inc src/bc/cmdline.inc
+index 8632a10479..b08b4e5a24 100644
+--- src/bc/cmdline.inc
++++ src/bc/cmdline.inc
+@@ -768,6 +768,8 @@ static int run_from_cmd_line(int argc, char *_argv[],
+ argv[0] = "-m";
+ else if (!strcmp("--name", argv[0]))
+ argv[0] = "-N";
++ else if (!strcmp("--exec", argv[0]))
++ argv[0] = "-E";
+ else if (!strcmp("--no-compiled", argv[0]))
+ argv[0] = "-c";
+ else if (!strcmp("--no-lib", argv[0]))
+@@ -1017,6 +1019,7 @@ static int run_from_cmd_line(int argc, char *_argv[],
+ eval_kind[num_enl++] = mzcmd_EMBEDDED;
+ break;
+ case 'N':
++ case 'E':
+ if (argc < 2) {
+ PRINTF("%s: missing name after %s switch\n",
+ prog,
+@@ -1025,13 +1028,16 @@ static int run_from_cmd_line(int argc, char *_argv[],
+ }
+ argv++;
+ --argc;
+- sprog = argv[0];
+- if (!*sprog) {
++ if (!*(argv[0])) {
+ PRINTF("%s: empty path after %s switch\n",
+ prog,
+ real_switch);
+ goto show_need_help;
+ }
++ if (*str == 'N')
++ sprog = argv[0];
++ else
++ prog = argv[0];
+ was_config_flag = 1;
+ break;
+ case 'q':
+@@ -1439,6 +1445,7 @@ static int run_from_cmd_line(int argc, char *_argv[],
+ " -R <paths>, --compiled <paths> : Set compiled-file search roots to <paths>\n"
+ " -C, --cross : Cross-build mode; save current collects and config as host\n"
+ " -N <file>, --name <file> : Sets `(find-system-path 'run-file)' to <file>\n"
++ " -E <file>, --exec <file> : Sets `(find-system-path 'exec-file)' to <file>\n"
+ # ifdef CMDLINE_STDIO_FLAG
+ " -J <name>, ---wm-class <name> : Set WM_CLASS class to <name> (Unix)\n"
+ # endif
+diff --git src/cs/c/main.c src/cs/c/main.c
+index fcca0dcf0d..de5e564c91 100644
+--- src/cs/c/main.c
++++ src/cs/c/main.c
+@@ -172,7 +172,7 @@ static char *get_self_path(char *exec_file)
+ # undef USE_GENERIC_GET_SELF_PATH
+