Merge pull request #1990 from andrew-johnson-4/gc-disabled-lib2-deploy-dfjidsll

Gc disabled lib2 deploy dfjidsll

Author: andrew4328

lib2/core/list.lsts

@@ -77,6 +77,7 @@ let $"[]"(tt: List<x>, idx: USize): x = (
          fail(c"list index out of bounds");
       };
       tt = tail(tt);
+      idx = idx - 1;
    };
    head(tt)
 );

lib2/core/string.lsts

@@ -144,6 +144,7 @@ let $"+"(l: String, r: String): String = (
    let od = mk-owned-data(type(U8), cs-length);
    memcpy(od.data as C<"void">[], (l.data.data + l.start-offset) as C<"void">[], l-length as USize);
    memcpy((od.data + l-length) as C<"void">[], (r.data.data + r.start-offset) as C<"void">[], r-length as USize);
+   od.occupied = cs-length;
    String(0 as USize, cs-length, od) 
 );