string-copy

compiler/kernel-primitives.rkt

@@ -108,6 +108,8 @@
                                     'hash-remove!
                                     'hash-remove
                                     'equal-hash-code
+
+                                    'string-copy
                                     ))
 (define-predicate KernelPrimitiveName? KernelPrimitiveName)
 

js-assembler/runtime-src/baselib-primitives.js

@@ -791,7 +791,15 @@
             if (M.a === 3) {
                 end = baselib.numbers.toFixnum(checkNatural(M, 'substring', 2));
             }
-            return str.substring(start, end);
+            return baselib.strings.makeMutableString((str.substring(start, end)).split(""));
+        });
+
+    installPrimitiveProcedure(
+        'string-copy',
+        1,
+        function(M) {
+            var str = checkString(M, 'substring', 0).toString();
+            return baselib.strings.makeMutableString(str.substring(0, str.length).split(""));
         });
 
 

js-assembler/runtime-src/baselib-strings.js

@@ -96,7 +96,7 @@
     };
 
     Str.prototype.replace = function (expr, newStr) {
-	return Str.fromString( this.toString().replace(expr, newStr) );
+	return Str.fromString(this.toString().replace(expr, newStr) );
     };
 
 
@@ -117,11 +117,11 @@
     };
 
     Str.prototype.toUpperCase = function () {
-	return Str.fromString( this.chars.join("").toUpperCase() );
+	return Str.fromString(this.chars.join("").toUpperCase() );
     };
 
     Str.prototype.toLowerCase = function () {
-	return Str.fromString( this.chars.join("").toLowerCase() );
+	return Str.fromString(this.chars.join("").toLowerCase() );
     };
 
     Str.prototype.match = function (regexpr) {

lang/kernel.rkt

@@ -431,6 +431,7 @@ box?
   string-ci<=?
   string-ci>=?
 
+  string-copy
   substring
   string-append
   string->list

tests/more-tests/dots-should-be-syntax-error.rkt

@@ -0,0 +1,3 @@
+#lang planet dyoo/whalesong/cs019
+
+.. ;; should raise a teaching syntax error

tests/more-tests/string-tests.expected

@@ -11,6 +11,7 @@
 ""
 "l"
 "lo"
+"hello world"
 ""
 "hello"
 ""

tests/more-tests/string-tests.rkt

@@ -14,6 +14,8 @@
 (substring "hello world" 3 4)
 (substring "hello world" 3 5)
 
+(string-copy "hello world")
+
 
 (list->string '())
 (list->string '(#\h #\e #\l #\l #\o))

version.rkt

@@ -6,4 +6,4 @@
 
 (provide version)
 (: version String)
-(define version "1.62")
+(define version "1.64")