Commit 16b1394a authored by anton's avatar anton

Some bugfixes and cleanups by Jorge Acereda <AE069F38-47DD-4037-9434-89A9489456EF@gmail.com>

parent e4418728
Gforth is a fast and portable implementation of the ANS Forth
Gforth is a fast and portable implementation of the ANS Forth
language. It works nicely with the Emacs editor, offers some nice
features such as input completion and history, backtraces, a
decompiler and a powerful locals facility, and it even has a
......
......@@ -876,6 +876,6 @@ chmod +x vmgen
chmod +x build-ec
test -d kernel||mkdir kernel
$srcdir/mkinstalldirs include/gforth/$PACKAGE_VERSION
ln -s ../../../engine/config.h ../../../engine/libcc.h include/gforth/$PACKAGE_VERSION]],[[PACKAGE_VERSION=$PACKAGE_VERSION]])
ln -sf ../../../engine/config.h ../../../engine/libcc.h include/gforth/$PACKAGE_VERSION]],[[PACKAGE_VERSION=$PACKAGE_VERSION]])
AC_OUTPUT
......@@ -232,7 +232,7 @@ void get_winsize()
#endif
if (rows==0)
rows=DEFAULTROWS;
if (rows==0)
if (cols==0)
cols=DEFAULTCOLS;
}
......
......@@ -78,8 +78,7 @@ defer cur-correct ( addr u -- )
Variable linew
Variable screenw
: linew-off linew off form nip screenw ! ;
: linew-off linew off cols screenw ! ;
[IFDEF] x-width
: clear-line ( max span addr pos1 -- max addr )
......@@ -239,7 +238,7 @@ require utf-8.fs
linew @ xback-restore >r 2dup swap type 2dup swap cur-correct r> ;
: xretype ( max span addr pos1 -- max span addr pos1 f )
.all form nip screenw @ >r screenw !
.all cols screenw @ >r screenw !
linew @ screenw @ / linew @ r@ / max
screenw @ r> - * 0 max
dup spaces linew +! .rest false ;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment