Fixup string iteration for unicode strings

test/testUnicodeStrings.krk

@@ -19,3 +19,6 @@ print(len(bytes.decode()))
 print(len(bytes))
 
 print("テスト、テスト、日本語、おはよう".split("、"))
+
+for c in hello:
+    print(c)

test/testUnicodeStrings.krk.expect

@@ -11,3 +11,12 @@ b'\xe3\x81\x82\xe3\x81\x84\xe3\x81\x86\xe3\x81\x88\xe3\x81\x8a'
 5
 15
 ['テスト', 'テスト', '日本語', 'おはよう']
+お
+は
+よ
+う
+ご
+ざ
+い
+ま
+す

vm.c

@@ -2718,11 +2718,11 @@ static KrkValue _striter_call(int argc, KrkValue argv[]) {
 		goto _corrupt;
 	}
 
-	if ((size_t)AS_INTEGER(_counter) >= AS_STRING(_str)->length) {
+	if ((size_t)AS_INTEGER(_counter) >= AS_STRING(_str)->codesLength) {
 		return argv[0];
 	} else {
 		krk_attachNamedValue(&self->fields, "i", INTEGER_VAL(AS_INTEGER(_counter)+1));
-		return OBJECT_VAL(krk_copyString(&AS_CSTRING(_str)[AS_INTEGER(_counter)],1));
+		return _string_get(2,(KrkValue[]){_str,_counter});
 	}
 
 _corrupt: