From 8cb560af37d69096778f0b4be0d22fd2c8a7943c Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 8 Jan 2021 23:07:24 -0800
Subject: [PATCH] Wrap words.

---
 ueforth/common/boot.fs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ueforth/common/boot.fs b/ueforth/common/boot.fs
index de68037..f16df4b 100644
--- a/ueforth/common/boot.fs
+++ b/ueforth/common/boot.fs
@@ -179,7 +179,10 @@ variable hld
 : exit= ( xt -- ) ['] exit = ;
 : see-loop   >:body begin see-one dup @ exit= until ;
 : 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 )
 : dump ( a n -- )