Make a word inline

db4
Slava Pestov 2008-02-14 20:27:25 -06:00
parent 2a0df14200
commit 53c1ff1cc8
1 changed files with 1 additions and 1 deletions

View File

@ -257,7 +257,7 @@ INSTANCE: repetition immutable-sequence
: check-copy ( src n dst -- )
over 0 < [ bounds-error ] when
>r swap length + r> lengthen ;
>r swap length + r> lengthen ; inline
PRIVATE>