Fixed POSIX IO, (ACCEPT) now emits SPACE at end of line.

[pforth] / fth / history.fth

diff --git a/fth/history.fth b/fth/history.fth
index dfb7baa..5e5409e 100644 (file)
--- a/fth/history.fth
+++ b/fth/history.fth
@@ -421,9 +421,9 @@ variable KH-INSIDE        ( true if we are scrolling inside the history buffer )
                kh.inschar\r
        REPEAT drop\r
        kh-span @ kh-cursor @ - ?dup\r
                kh.inschar\r
        REPEAT drop\r
        kh-span @ kh-cursor @ - ?dup\r

-       IF 1+ tio.forwards  ( move to end of line )\r
-       ELSE space\r
+       IF tio.forwards  ( move to end of line )\r

        THEN\r
        THEN\r

+       space\r

        flushemit\r
 ;\r
 \r
        flushemit\r
 ;\r
 \r