X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fcoroutines%2Fcoroutines-tests.factor;h=90e88f64fb27e8cc33e6ab8a100aae535efc5002;hp=f4ac97354dc65bfd8ece9054fbe43448094020db;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/extra/coroutines/coroutines-tests.factor b/extra/coroutines/coroutines-tests.factor
index f4ac97354d..90e88f64fb 100644
--- a/extra/coroutines/coroutines-tests.factor
+++ b/extra/coroutines/coroutines-tests.factor
@@ -7,7 +7,7 @@ USING: coroutines kernel sequences prettyprint tools.test math ;
   [ drop 1 coyield* 2 coyield* 3 coterminate ] cocreate ;
 
 : test2 ( -- co )
-  [ 1+ coyield* ] cocreate ;
+  [ 1 + coyield* ] cocreate ;
 
 test1 dup *coresume . dup *coresume . dup *coresume . dup *coresume 2drop
 [ test2 42 over coresume . dup *coresume . drop ] must-fail
@@ -18,4 +18,4 @@ test1 dup *coresume . dup *coresume . dup *coresume . dup *coresume 2drop
 
 { "c" "b" "a" } [ test3 { "a" "b" "c" } over coresume [ dup *coresume [ *coresume ] dip ] dip ] unit-test
 
-{ 4+2/3 } [ [ 1+ coyield 2 * coyield 3 / coreset ] cocreate 1 5 [ over coresume ] times nip ] unit-test
\ No newline at end of file
+{ 4+2/3 } [ [ 1 + coyield 2 * coyield 3 / coreset ] cocreate 1 5 [ over coresume ] times nip ] unit-test