From: Phil Burk <philburk@mobileer.com>
Date: Sun, 13 Sep 2020 21:06:55 +0000 (-0700)
Subject: Merge pull request #75 from SeekingMeaning/0BSD
X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/commitdiff_plain/861862f451bf6fea44c052b8a8733853fa2fe9d9?hp=-c

Merge pull request #75 from SeekingMeaning/0BSD

relicense to 0BSD
---

861862f451bf6fea44c052b8a8733853fa2fe9d9
diff --combined fth/ansilocs.fth
index 923eef2,4e3dae9..735680f
--- a/fth/ansilocs.fth
+++ b/fth/ansilocs.fth
@@@ -12,14 -12,17 +12,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.
  \
  \ 10/27/99 Fixed  : foo { -- } 55 ; was entering local frame but not exiting.
  
@@@ -139,11 -142,19 +142,11 @@@ if.forgotten lv.ter
      THEN
  ;
  
 -
  : VALUE
      CREATE ( n <name> )
          ,
 -        immediate
      DOES>
 -        state @
 -        IF
 -            [compile] aliteral
 -            compile @
 -        ELSE
 -            @
 -        THEN
 +        @
  ;
  
  : TO  ( val <name> -- )
@@@ -153,7 -164,7 +156,7 @@@
          lv.compile.store
      ELSE
          find
 -        1 = 0= abort" TO or -> before non-local or non-value"
 +        0= abort" not found"
          >body  \ point to data
          state @
          IF  \ compiling  ( -- pfa )
@@@ -175,7 -186,7 +178,7 @@@
          [compile] literal compile (local+!)
      ELSE
          find
 -        1 = 0= abort" +-> before non-local or non-value"
 +        0= abort" not found"
          >body  \ point to data
          state @
          IF  \ compiling  ( -- pfa )