Doug Coleman 2015-03-11 16:53:20 -07:00
parent 7c30ae8ab6
commit 0fda669750
1 changed files with 1 additions and 1 deletions

View File

@ -46,7 +46,7 @@ M: growable set-length ( n seq -- )
] if
length<< ;
: new-size ( old -- new ) 1 + 3 * ; inline
: new-size ( old -- new ) 1 + 2 * ; inline
: ensure ( n seq -- n seq )
bounds-check-head