diff options
Diffstat (limited to 'transform.e')
| -rw-r--r-- | transform.e | 12 |
1 files changed, 11 insertions, 1 deletions
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 |