strings: inline >string and 1string

Fixes #340
db4
Joe Groff 2011-11-15 19:15:19 -08:00
parent 5e99a7bbbf
commit 34e77ec408
1 changed files with 2 additions and 2 deletions

View File

@ -74,9 +74,9 @@ M: string clone
M: string resize resize-string ; inline
: 1string ( ch -- str ) 1 swap <string> ;
: 1string ( ch -- str ) 1 swap <string> ; inline
: >string ( seq -- str ) "" clone-like ;
: >string ( seq -- str ) "" clone-like ; inline
M: string new-sequence drop 0 <string> ; inline