Harmonize spelling

[factor.git] / extra / rosetta-code / one-d-cellular / one-d-cellular.factor

diff --git a/extra/rosetta-code/one-d-cellular/one-d-cellular.factor b/extra/rosetta-code/one-d-cellular/one-d-cellular.factor
index 8476073daa5d56407e1e16a3ed12c2946adcb85c..bbdef327e1b06ca3df84b87f519ac369464f8e25 100644 (file)
--- a/extra/rosetta-code/one-d-cellular/one-d-cellular.factor
+++ b/extra/rosetta-code/one-d-cellular/one-d-cellular.factor
@@ -32,7 +32,7 @@ IN: rosetta-code.one-d-cellular
 :: neighbors ( index world -- # )
     index [ 1 - ] [ 1 + ] bi [ world ?nth ] bi@ bool-sum ;
 
 :: neighbors ( index world -- # )
     index [ 1 - ] [ 1 + ] bi [ world ?nth ] bi@ bool-sum ;
 

-: count-neighbors ( world -- neighbours )
+: count-neighbors ( world -- neighbors )

     [ length <iota> ] keep [ neighbors ] curry map ;
 
 : life-law ( alive? neighbors -- alive? )
     [ length <iota> ] keep [ neighbors ] curry map ;
 
 : life-law ( alive? neighbors -- alive? )