From 632f0d981091d65764488c4aa728fea050d379bc Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 17 Jul 2012 16:24:30 -0700
Subject: [PATCH] memoize: use unsafe words.

---
 basis/memoize/memoize.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/memoize/memoize.factor b/basis/memoize/memoize.factor
index 1817cf83a9..71580257dd 100644
--- a/basis/memoize/memoize.factor
+++ b/basis/memoize/memoize.factor
@@ -15,7 +15,7 @@ IN: memoize
 : [nsequence] ( length exemplar -- quot )
     [ [ [ 1 - ] keep ] dip '[ _ _ _ new-sequence ] ]
     [ drop [ [ set-nth-unsafe ] 2keep [ 1 - ] dip ] (n*quot) ] 2bi
-    [ nip ] 3append ; 
+    [ nip ] 3append ;
 
 : [firstn] ( length -- quot )
     [ 0 swap ] swap
@@ -29,7 +29,7 @@ IN: memoize
 
 : unpacker ( seq -- quot )
     length dup 4 <=
-    [ { [ drop ] [ ] [ first2 ] [ first3 ] [ first4 ] } nth ]
+    [ { [ drop ] [ ] [ first2-unsafe ] [ first3-unsafe ] [ first4-unsafe ] } nth ]
     [ [firstn] ] if ;
 
 : pack/unpack ( quot effect -- newquot )