X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Fansilocs.fth;h=735680f33b37ba422e7b5165c6168b71d5917806;hb=ff136ea5caf229ce3135cc6245051f40a9b443f3;hp=4e3dae9b78215767ecfd3dd110a3a698dcb406e4;hpb=1f99f95d6a7eecc05cae8fb357f9b7bf564c2725;p=debian%2Fpforth

diff --git a/fth/ansilocs.fth b/fth/ansilocs.fth
index 4e3dae9..735680f 100644
--- a/fth/ansilocs.fth
+++ b/fth/ansilocs.fth
@@ -142,19 +142,11 @@ if.forgotten lv.term
     THEN
 ;
 
-
 : VALUE
     CREATE ( n <name> )
         ,
-        immediate
     DOES>
-        state @
-        IF
-            [compile] aliteral
-            compile @
-        ELSE
-            @
-        THEN
+        @
 ;
 
 : TO  ( val <name> -- )
@@ -164,7 +156,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 )
@@ -186,7 +178,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 )