X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fchannels%2Fexamples%2Fexamples.factor;h=99fa41cd400e7788dc76a2046ca124f7b3d05760;hp=1e51fb06d8f68106bef94558503014e69635edc8;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/basis/channels/examples/examples.factor b/basis/channels/examples/examples.factor index 1e51fb06d8..99fa41cd40 100644 --- a/basis/channels/examples/examples.factor +++ b/basis/channels/examples/examples.factor @@ -7,7 +7,7 @@ locals sequences ; IN: channels.examples : (counter) ( channel n -- ) - [ swap to ] 2keep 1+ (counter) ; + [ swap to ] 2keep 1 + (counter) ; : counter ( channel -- ) 2 (counter) ;