1 files changed, 4 insertions(+), 4 deletions(-)

M sieveh.fs

@@ 9,13 9,13 @@ variable count
     0 count !
     flags size cells/ $01010101 fill
     0 r! [ ( W=0 ) 0 i) A>) @, begin
-      W) flags +) 8b) A>) compare, 0 Z) branchC,
+      W) flags +) 8b) A>) compare, ifnz,
         1 i) <<, 3 i) +, S) &) !, RSP) +,
-        size i) compare, 0 >) branchC, begin
+        size i) compare, if<= begin
           W) flags +) A>) 8b) !, S) &) +,
-          size i) compare, <=) branchC, drop then
+          size i) compare, while<= then
         1 count m) +n, then 1 RSP) +n,
-      RSP) @, size i) compare, NZ) branchC, drop ] ( W )
+      RSP) @, size i) compare, while<> ] ( W )
     rdrop drop next nl> count @ . ." primes" ;
 
 freeze sieve