Updated README with better build info

[debian/pforth] / fth / misc1.fth

diff --git a/fth/misc1.fth b/fth/misc1.fth
index 0738121c47c12dd68e7f7386688de875098db4d1..e3fb5d80a3afa46f1691cf39486c389d601c364f 100644 (file)
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -4,14 +4,17 @@
 \ Author: Phil Burk
 \ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
 \
-\ The pForth software code is dedicated to the public domain,
-\ and any third party may reproduce, distribute and modify
-\ the pForth software code or any derivative works thereof
-\ without any compensation or license.  The pForth software
-\ code is provided on an "as is" basis without any warranty
-\ of any kind, including, without limitation, the implied
-\ warranties of merchantability and fitness for a particular
-\ purpose and their equivalents under the laws of any jurisdiction.
+\ Permission to use, copy, modify, and/or distribute this
+\ software for any purpose with or without fee is hereby granted.
+\
+\ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+\ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+\ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
+\ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
+\ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
+\ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+\ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+\ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 anew task-misc1.fth
 decimal
@@ -97,13 +100,19 @@ variable TAB-WIDTH  8 TAB-WIDTH !
     tab-width @   swap - spaces
 ;
 
+$ 20 constant FLAG_SMUDGE
+
 \ Vocabulary listing
 : WORDS  ( -- )
     0 latest
     BEGIN  dup 0<>
-    WHILE  dup id. tab cr? ?pause
+    WHILE ( -- count NFA )
+        dup c@ flag_smudge and 0=
+        IF
+            dup id. tab cr? ?pause
+            swap 1+ swap
+        THEN
         prevname
-        swap 1+ swap
     REPEAT drop
     cr . ."  words" cr
 ;