X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/90975d261c7ab39186c75d8700261faab3427de7..e26795fd7d50875bb0d519230a923c39c7e63047:/fth/history.fth diff --git a/fth/history.fth b/fth/history.fth index 574d6a6..176d187 100644 --- a/fth/history.fth +++ b/fth/history.fth @@ -50,8 +50,8 @@ KH-HISTORY kh_history_size erase \ \ The most recent entry is put at the beginning, \ older entries are shifted up. - -4 constant KH_LINE_EXTRA_SIZE ( 2 count bytes plus 2 size bytes ) + +4 constant KH_LINE_EXTRA_SIZE ( 2 count bytes plus 2 size bytes ) : KH-END ( -- addr , end of history buffer ) kh-history kh_history_size + @@ -133,8 +133,8 @@ variable KH-INSIDE ( true if we are scrolling inside the history buffer ) ELSE >r ( save count ) \ Set look pointer to point to first count byte of last string. - 0 kh-look ! -\ Make room for this line of text and line header. + 0 kh-look ! +\ Make room for this line of text and line header. \ PLB20100823 Was cell+ which broke on 64-bit code. r@ KH_LINE_EXTRA_SIZE + kh.make.room \ Set count bytes at beginning and end.