From 2b601cdda09dc566c011efd1c5f72c30b196e1d3 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Mon, 5 Oct 2026 20:58:52 -0700 Subject: yessssssssssss, nice clean invocation now Force-Push: yes Change-Id: Id3bfde4a2053c9f07fd596def8381afc505949eb --- compilation/transform.e | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'compilation/transform.e') 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. -- cgit 1.4.1