primitives: Change PRIMITIVE: to check that the word is in that vocabulary and the...

[factor.git] / core / strings / strings.factor

diff --git a/core/strings/strings.factor b/core/strings/strings.factor
index 8761335c6fa82c575c003332491483042aa744b9..4bbf642ca0d3312f2fd3508527200a591ed98bc1 100644 (file)
--- a/core/strings/strings.factor
+++ b/core/strings/strings.factor
@@ -7,7 +7,12 @@ IN: strings
 
 BUILTIN: string { length array-capacity read-only initial: 0 } aux ;
 
+PRIMITIVE: <string> ( n ch -- string )
+PRIMITIVE: resize-string ( n str -- newstr )
+
 <PRIVATE
+PRIMITIVE: set-string-nth-fast ( ch n string -- )
+PRIMITIVE: string-nth-fast ( n string -- ch )
 
 : string-hashcode ( str -- n ) 3 slot ; inline