From eee978433b934cf9e9c7d73c43b90278eb490bee Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Sat, 19 Sep 2026 07:07:43 -0700 Subject: some basic indentation for parts of the log-load transform Change-Id: Ibfd4fa69a3d2abdaba162538f6386f7173af4311 Force-Push: yes --- transform.e | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'transform.e') diff --git a/transform.e b/transform.e index a8c61cc..45d52dc 100644 --- a/transform.e +++ b/transform.e @@ -1882,6 +1882,11 @@ allocate-transformation-state s" transformation-state" variable ~ attempting to understand "log-load-colon-alternate". : log-load-colon-alternate word value@ + ~ : blank-line + ~ : blank-line + ~ : provide-string-copy + ~ : # is defined here via the log-load transform. + ~ : indent ~ Calling log-load-create-alternate would result in some redundant rolling ~ and unrolling, so we do it together like this instead. @@ -1971,6 +1976,8 @@ allocate-transformation-state s" transformation-state" variable log-load-unroll-log-address + ~ : deindent + ~ This is where we would unhide the entry, but again, we don't do that. ~ Since [ is an immediate word, we have to go to extra trouble to compile @@ -2000,6 +2007,8 @@ allocate-transformation-state s" transformation-state" variable log-load-unroll-log-address + ~ : deindent + ~ This is where we would unhide the entry, but again, we don't do that. ~ Since [ is an immediate word, we have to go to extra trouble to compile @@ -2690,6 +2699,7 @@ allocate-transformation-state s" transformation-state" variable ~ (output buffer start, output point, input string pointer, delimiter pointer ~ -- output buffer start, output point) : log-load-transform + ~ : blank-line ~ : This is the start of the log-load routine, which is a long block of ~ : code that has been processed by the log-load transform. It is part of ~ : the warm-start routine, which does other things before and after it. @@ -2706,6 +2716,7 @@ allocate-transformation-state s" transformation-state" variable ~ : functionality needed for the log-load routine to run, then invoke the ~ : log-load routine to copy a more complete set of functionality into ~ : memory. + ~ : blank-line main-input-buffer dup push-input-buffer 3roll attach-string-to-input-buffer @@ -2929,7 +2940,6 @@ allocate-transformation-state s" transformation-state" variable ~ ~ : delete-last-comment-at-output-point ~ ~ ~ : Do a thing with # and # ? -~ ~ : Do a different #swap # thing to # now. ~ ~ : provide-decimal ~ ~ : provide-hex ~ ~ : provide-hex8 -- cgit 1.4.1