X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/8e9db35f299d8f606ba003d3cd8fa9e2c868c880..146f755d23161fdc2fade78ce984d12a227baf55:/fth/ansilocs.fth

diff --git a/fth/ansilocs.fth b/fth/ansilocs.fth
index 33c0c71..923eef2 100644
--- a/fth/ansilocs.fth
+++ b/fth/ansilocs.fth
@@ -10,7 +10,7 @@
 \    local-compiler ( -- addr , variable containing CFA of locals compiler )
 \
 \ Author: Phil Burk
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
+\ 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
@@ -139,19 +139,11 @@ if.forgotten lv.term
     THEN
 ;
 
-
 : VALUE
     CREATE ( n <name> )
         ,
-        immediate
     DOES>
-        state @
-        IF
-            [compile] aliteral
-            compile @
-        ELSE
-            @
-        THEN
+        @
 ;
 
 : TO  ( val <name> -- )
@@ -161,7 +153,7 @@ if.forgotten lv.term
         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 )
@@ -183,7 +175,7 @@ if.forgotten lv.term
         [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 )