diff options
Diffstat (limited to 'transform.e')
| -rw-r--r-- | transform.e | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/transform.e b/transform.e index c9b06af..ee4f113 100644 --- a/transform.e +++ b/transform.e @@ -1541,7 +1541,6 @@ allocate-transformation-state s" transformation-state" variable ~ : The warm-start routine relies on words defined by the label transform, ~ : as does the log-load routine. ~ : blank-line - ~ : blank-line main-input-buffer dup push-input-buffer 3roll attach-string-to-input-buffer @@ -2295,7 +2294,7 @@ allocate-transformation-state s" transformation-state" variable swap-transform-variables offset-to-target-address-space , - ~ : -8 log-load-comma (codeword pointer) + ~ : -8 log-load-find (codeword pointer) ~ We leave an execution token on the log-load-time stack, so no delta ~ needed. @@ -2620,7 +2619,9 @@ allocate-transformation-state s" transformation-state" variable ~ This is an immediate effect, so once we've done it, we update the user ~ stack depth. An integer literal is a stack-depth delta of 1. swap-transform-variables L@' lit swap-transform-variables - offset-to-target-address-space , , + offset-to-target-address-space , ~ : -8 lit (codeword pointer) + ~ : provide-hex + , ~ : -8 # (integer literal) 1 transform-apply-stack-delta 0 exit } if @@ -2674,6 +2675,7 @@ allocate-transformation-state s" transformation-state" variable { ~ Again just like in label-transform, we declare our use of the label ~ and get a value for it. + ~ : provide-string-copy swap-transform-variables intern-label use-label swap-transform-variables @@ -2687,6 +2689,7 @@ allocate-transformation-state s" transformation-state" variable ~ This is an immediate effect, so once we've done that, we update the ~ user stack depth. offset-to-target-address-space , + ~ : -8 # (codeword pointer) transform-apply-stack-delta dropstring 0 exit } if |