X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Flocals%2Flocals-tests.factor;h=63b6d68feb3a4131eb5ed4415711ad754c67c48a;hp=414b2da45c96cfb049bc3ce9ebb9ec8ff72bfb54;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/basis/locals/locals-tests.factor b/basis/locals/locals-tests.factor
index 414b2da45c..63b6d68feb 100644
--- a/basis/locals/locals-tests.factor
+++ b/basis/locals/locals-tests.factor
@@ -199,23 +199,23 @@ DEFER: xyzzy
 [ 5 ] [ 10 xyzzy ] unit-test
 
 :: let*-test-1 ( a -- b )
-    [let* | b [ a 1+ ]
-            c [ b 1+ ] |
+    [let* | b [ a 1 + ]
+            c [ b 1 + ] |
         a b c 3array ] ;
 
 [ { 1 2 3 } ] [ 1 let*-test-1 ] unit-test
 
 :: let*-test-2 ( a -- b )
-    [let* | b [ a 1+ ]
-            c! [ b 1+ ] |
+    [let* | b [ a 1 + ]
+            c! [ b 1 + ] |
         a b c 3array ] ;
 
 [ { 1 2 3 } ] [ 1 let*-test-2 ] unit-test
 
 :: let*-test-3 ( a -- b )
-    [let* | b [ a 1+ ]
-            c! [ b 1+ ] |
-        c 1+ c!  a b c 3array ] ;
+    [let* | b [ a 1 + ]
+            c! [ b 1 + ] |
+        c 1 + c!  a b c 3array ] ;
 
 [ { 1 2 4 } ] [ 1 let*-test-3 ] unit-test
 
@@ -502,7 +502,7 @@ M:: integer lambda-method-forget-test ( a -- b ) a ;
 
 [ 3 ] [ 3 [| | :> a! a ] call ] unit-test
 
-[ 3 ] [ 2 [| | :> a! a 1+ a! a ] call ] unit-test
+[ 3 ] [ 2 [| | :> a! a 1 + a! a ] call ] unit-test
 
 :: wlet-&&-test ( a -- ? )
     [wlet | is-integer? [ a integer? ]