Use "map-sum" instead of "map sum".

diff --git a/basis/wrap/words/words.factor b/basis/wrap/words/words.factor
index 8a2df38e36b66675f7f163e7ad59a6abc7f5fa3d..303876d916f02b88b6160ae7775b06a70f828ab6 100644 (file)
--- a/basis/wrap/words/words.factor
+++ b/basis/wrap/words/words.factor
@@ -9,7 +9,7 @@ C: <word> word
 <PRIVATE
 
 : words-length ( words -- length )
-    [ width>> ] map sum ;
+    [ width>> ] map-sum ;
 
 : make-element ( whites blacks -- element )
     [ append ] [ [ words-length ] bi@ ] 2bi <element> ;

diff --git a/extra/project-euler/151/151.factor b/extra/project-euler/151/151.factor
index b8db55e886e00421e9f7a1443b99540faff6f4e5..1c5ee22b75a6221544804f387b281bfcdf0e42bd 100644 (file)
--- a/extra/project-euler/151/151.factor
+++ b/extra/project-euler/151/151.factor
@@ -62,7 +62,7 @@ DEFER: (euler151)
         { { 0 0 1 0 } [ { 0 0 0 1 } (euler151) 1 + ] }
         { { 0 1 0 0 } [ { 0 0 1 1 } (euler151) 1 + ] }
         { { 1 0 0 0 } [ { 0 1 1 1 } (euler151) 1 + ] }
-        [ [ dup length iota [ pick-sheet ] with map sum ] [ sum ] bi / ]
+        [ [ dup length iota [ pick-sheet ] with map-sum ] [ sum ] bi / ]
      } case ] cache ;
 
 : euler151 ( -- answer )

diff --git a/unmaintained/4DNav/turtle/turtle.factor b/unmaintained/4DNav/turtle/turtle.factor
index 71f7f2618568c2510b5aabd30c84976f3b447963..c964c816098b2557c81964bdf5a60a52b2472b5b 100644 (file)
--- a/unmaintained/4DNav/turtle/turtle.factor
+++ b/unmaintained/4DNav/turtle/turtle.factor
@@ -119,7 +119,7 @@ TUPLE: observer < turtle projection-mode collision-mode ;
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : distance ( turtle turtle -- n ) 
-    pos>> swap pos>> v- [ sq ] map sum sqrt ;
+    pos>> swap pos>> v- [ sq ] map-sum sqrt ;
 
 : move-by ( point -- ) turtle-pos> v+ >turtle-pos ;
 

diff --git a/unmaintained/peg-lexer/peg-lexer.factor b/unmaintained/peg-lexer/peg-lexer.factor
index 56dda70bddb35fc9d24dc1e362c240f6fb8f64e9..9400a455b4d4c2e19b5c6e367ce0c347b1e95c6a 100644 (file)
--- a/unmaintained/peg-lexer/peg-lexer.factor
+++ b/unmaintained/peg-lexer/peg-lexer.factor
@@ -25,7 +25,7 @@ M: lex-hash set-at
         [ swap hash>> set-at ]
     } case ;
 
-:: at-pos ( t l c -- p ) t l head-slice [ length ] map sum l 1 - + c + ;
+:: at-pos ( t l c -- p ) t l head-slice [ length ] map-sum l 1 - + c + ;
 
 M: lex-hash at*
     swap {

diff --git a/unmaintained/pos/pos.factor b/unmaintained/pos/pos.factor
index 38eb8dec96151a1c9615b3fff9b66052a3b05746..94c4eada0169b67625062998ad31eaad8f2d9c9c 100644 (file)
--- a/unmaintained/pos/pos.factor
+++ b/unmaintained/pos/pos.factor
@@ -16,7 +16,7 @@ C: <pos> pos
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: distance ( pos pos -- n ) val>> swap val>> v- [ sq ] map sum sqrt ;
+: distance ( pos pos -- n ) val>> swap val>> v- [ sq ] map-sum sqrt ;
 
 : move-by ( point -- ) pos> v+ >pos ;