SCPY: don't copy the NULL

This makes [entry] much simpler. Also, remove unused LITS word.

blk/058

@@ -4,10 +4,9 @@ LIT    --         Write a LIT entry. You're expected to write
                   actual string to HERE right afterwards.
 LIT< x --         Read following word and write to HERE as a
                   string literal.
-LITS   a --       Write word at addr a as a atring literal.
 S=     a1 a2 -- f Returns whether string a1 == a2.
-SCPY   a --       Copy string at addr a into HERE.
+SCPY   a --       Copy string at addr a into HERE, without
-
+                  NULL termination.
 
 
 

blk/268

@@ -8,7 +8,7 @@
             DUP LIT< ( S= IF
                 DROP [COMPILE] (
             ELSE
-                SCPY 0x20 H@ 1- C!
+                SCPY 0x20 C,
             THEN 0 ( loop again )
         ELSE 1 ( stop looping ) THEN
     UNTIL

blk/407

@@ -1,8 +1,6 @@
 : SCPY
     BEGIN     ( a )
         C@+   ( a+1 c )
-        DUP C,    ( a c )
+        DUP NOT IF 2DROP EXIT THEN
-        NOT IF DROP EXIT THEN
+        C,    ( a c )
     AGAIN ;
-
-

blk/408

@@ -1,14 +1,10 @@
 : [entry]
     HERE @        ( w h )
     SWAP SCPY     ( h )
-    ( Adjust HERE -1 because SCPY copies the null )
+    HERE @ SWAP - ( sz )
-    HERE @ 1-    ( h h' )
-    DUP HERE !   ( h h' )
-    SWAP -       ( sz )
     ( write prev value )
     HERE @ CURRENT @ - ,
-    ( write size )
+    C, ( write size )
-    C,
     HERE @ CURRENT !
 ;
 

blk/422

@@ -1,7 +1,6 @@
 : [ INTERPRET ; IMMEDIATE
 : ] R> DROP ;
-: LITS 34 , SCPY ;
+: LIT< WORD 34 , SCPY 0 C, ; IMMEDIATE
-: LIT< WORD LITS ; IMMEDIATE
 : LITA 36 , , ;
 : '? WORD (find) ;
 : '

blk/424

@@ -7,7 +7,7 @@
 
   40 is ASCII for '('. We do this to simplify XPACK's task of
   not mistakenly consider '(' definition as a comment.
-  LITS: 34 == litWord
+  LIT<: 34 == litWord
   LITA: 36 == addrWord
   COMPILE: Tough one. Get addr of caller word (example above
   (br)) and then call LITA on it. )