steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

memoize: use unsafe words.

db4
John Benediktsson 2012-07-17 16:24:30 -07:00
parent 6a08de2203
commit 632f0d9810
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/memoize/memoize.factor
View File

@ -29,7 +29,7 @@ IN: memoize
: unpacker ( seq -- quot ) : unpacker ( seq -- quot )
length dup 4 <= length dup 4 <=
[ { [ drop ] [ ] [ first2 ] [ first3 ] [ first4 ] } nth ] [ { [ drop ] [ ] [ first2-unsafe ] [ first3-unsafe ] [ first4-unsafe ] } nth ]
[ [firstn] ] if ; [ [firstn] ] if ;
: pack/unpack ( quot effect -- newquot ) : pack/unpack ( quot effect -- newquot )