alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Extra space.

Browse Source
This commit is contained in:
Brad Nelson
2021-01-02 22:23:16 -08:00
parent 278e05dbf8
commit 9df4f2cac7
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/common/boot.fs
View File

@ -163,7 +163,7 @@ variable hld
dup @ dup ['] DOLIT = if drop cell+ dup @ . else see. then cell+ ;
: exit= ( xt -- ) ['] exit = ;
: see-loop >:body begin see-one dup @ exit= until ;
: see cr ['] : see. ' dup see. see-loop drop ['] ; see. cr ;
: see cr ['] : see. ' dup see. space see-loop drop ['] ; see. cr ;
: words last @ begin dup see. >link dup 0= until drop cr ;
( Input )