From 20ff03f5c08910e95722d4935829c3d2b14dd7d5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 14 Jul 2015 17:49:04 -0700
Subject: [PATCH] pack: use cum-sum0 from math.statistics.

---
 basis/pack/pack.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/pack/pack.factor b/basis/pack/pack.factor
index c1aca45922..dc7c2282aa 100644
--- a/basis/pack/pack.factor
+++ b/basis/pack/pack.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien.c-types ascii assocs combinators combinators.smart
-endian fry io kernel macros math math.vectors sequences strings ;
+endian fry io kernel macros math math.statistics math.vectors
+sequences strings ;
 IN: pack
 
 GENERIC: >n-byte-array ( obj n -- byte-array )
@@ -115,7 +116,7 @@ MACRO: pack ( str -- quot )
 <PRIVATE
 
 : start/end ( seq -- seq1 seq2 )
-    [ 0 [ + ] accumulate nip dup ] keep v+ ; inline
+    [ cum-sum0 ] keep v+ ; inline
 
 PRIVATE>