diff options
Diffstat (limited to 'transform.e')
| -rw-r--r-- | transform.e | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/transform.e b/transform.e index 154f477..d727d53 100644 --- a/transform.e +++ b/transform.e @@ -369,7 +369,8 @@ allocate-transform-state s" transform-state" variable ~ input string. It is directly analogous to "quit", in interpret.e, but is far ~ more complex. ~ -~ (output point, input string pointer -- output point) +~ (output buffer start, output point, input string pointer +~ -- output buffer start, output point) : transform main-input-buffer dup push-input-buffer ~ TODO the arguments for this seem to be backwards from the documentation @@ -382,7 +383,7 @@ allocate-transform-state s" transform-state" variable ~ loop, and set it back when the loop ends. here @ transform-state transform-state-saved-here ! latest @ transform-state transform-state-saved-latest ! - dup transform-state transform-state-output-buffer-start ! + over transform-state transform-state-output-buffer-start ! here ! 0 latest ! ~ Now the stack has nothing of ours on it, so client code can do its thing. |