relicense to 0BSD

[pforth] / fth / require.fth

diff --git a/fth/require.fth b/fth/require.fth
index c18d8c4..b3c3709 100644 (file)
--- a/fth/require.fth
+++ b/fth/require.fth
@@ -2,14 +2,17 @@
 \
 \ This code is part of pForth.
 \
 \
 \ This code is part of pForth.
 \

-\ 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.

 
 private{
 
 
 private{
 


@@ -20,8 +23,7 @@ private{
 : INCLUDED? ( c-addr u -- flag )
     s" ::::" here place         ( c-addr u )
     here $append                ( )
 : INCLUDED? ( c-addr u -- flag )
     s" ::::" here place         ( c-addr u )
     here $append                ( )

-    here latest findnfa.from    ( x found? )
-    nip
+    here find nip 0<>           ( found? )

 ;
 
 \ FIXME: use real PARSE-NAME when available
 ;
 
 \ FIXME: use real PARSE-NAME when available