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

strings: faster clone-like when both arguments are strings.

db4
John Benediktsson 2013-06-25 15:39:34 -07:00
parent a1567bb01c
commit 938a6d68ab
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/strings/strings.factor
View File

@ -75,6 +75,9 @@ M: string set-nth-unsafe
M: string clone M: string clone
(clone) [ clone ] change-aux ; inline (clone) [ clone ] change-aux ; inline
M: string clone-like
over string? [ drop clone ] [ call-next-method ] if ; inline
M: string resize resize-string ; inline M: string resize resize-string ; inline
: 1string ( ch -- str ) 1 swap <string> ; inline : 1string ( ch -- str ) 1 swap <string> ; inline