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

Wrap words.

Browse Source
This commit is contained in:
Brad Nelson
2021-01-08 23:07:24 -08:00
parent f677e9ac99
commit 8cb560af37
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ueforth/common/boot.fs
View File

@ -179,7 +179,10 @@ variable hld
: exit= ( xt -- ) ['] exit = ; : exit= ( xt -- ) ['] exit = ;
: see-loop >:body begin see-one dup @ exit= until ; : see-loop >:body begin see-one dup @ exit= until ;
: see cr ['] : see. ' dup see. space 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 ; 75 value line-width
: onlines ( n xt -- n xt )
swap dup line-width > if drop 0 cr then over >name nip + 1+ swap ;
: words 0 last @ begin onlines dup see. >link dup 0= until 2drop cr ;
( Examine Memory ) ( Examine Memory )
: dump ( a n -- ) : dump ( a n -- )