yessssssssssss, nice clean invocation now

Force-Push: yes
Change-Id: Id3bfde4a2053c9f07fd596def8381afc505949eb

1 files changed, 13 insertions, 0 deletions

diff --git a/compilation/transform.e b/compilation/transform.e
index 31ef810..0798fd9 100644
--- a/compilation/transform.e
+++ b/compilation/transform.e
@@ -5352,6 +5352,19 @@ allocate-transformation-state s" transformation-state" variable
     exit
   } if
 
+  ~ We similarly want to suppress process-command-line-arguments.
+  dup s" process-command-line-arguments" stringcmp 0 = {
+    create dropstring
+    s" docol" find entry-to-execution-token execute ,
+    make-hidden
+
+    ~ Return before doing anything.
+    s" exit" find entry-to-execution-token ,
+
+    x' ] execute
+    exit
+  } if
+
   ~   We are entirely replacing sys-write with our own version. It's an
   ~ assembly word, and we're replacing it with a Forth word, so there's some
   ~ matching code in the ;asm alternate that makes sure to not mess that up.