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

2013-06-25 15:39:34 -07:00 · 2013-06-25 15:39:34 -07:00 · 938a6d68ab
parent a1567bb01c
commit 938a6d68ab
1 changed files with 3 additions and 0 deletions
--- a/core/strings/strings.factor
+++ b/core/strings/strings.factor
@ -75,6 +75,9 @@ M: string set-nth-unsafe
 M: string clone
    (clone) [ clone ] change-aux ; inline

+M: string clone-like
+    over string? [ drop clone ] [ call-next-method ] if ; inline
+
 M: string resize resize-string ; inline

 : 1string ( ch -- str ) 1 swap <string> ; inline