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

[debian/pforth] / fth / history.fth

diff --git a/fth/history.fth b/fth/history.fth
index dfb7baacf61b2ab3f4dd3bb4ea34f69eebbd04ef..5e5409e0c9d369c587085229f999737a70217a02 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
-       IF 1+ tio.forwards  ( move to end of line )\r
-       ELSE space\r
+       IF tio.forwards  ( move to end of line )\r
        THEN\r
+       space\r
        flushemit\r
 ;\r
 \r