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

growable: M\ growable contract should be declared inline, fixes performance regression on stack benchmark

db4
Slava Pestov 2009-10-30 20:53:47 -05:00
parent 888fcdb5f8
commit 0d24e65e4e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/growable/growable.factor
View File

@ -23,7 +23,7 @@ GENERIC: contract ( len seq -- )
M: growable contract ( len seq -- ) M: growable contract ( len seq -- )
[ length ] keep [ length ] keep
[ [ 0 ] 2dip set-nth-unsafe ] curry [ [ 0 ] 2dip set-nth-unsafe ] curry
(each-integer) ; (each-integer) ; inline
: growable-check ( n seq -- n seq ) : growable-check ( n seq -- n seq )
over 0 < [ bounds-error ] when ; inline over 0 < [ bounds-error ] when ; inline