From 632f0d981091d65764488c4aa728fea050d379bc Mon Sep 17 00:00:00 2001 From: John Benediktsson 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 )