implemented write access to s[i] for macros

2 files changed, 5 insertions, 5 deletions

diff --git a/lib/pure/algorithm.nim b/lib/pure/algorithm.nim
index 517819e1c..b08770e30 100755
--- a/lib/pure/algorithm.nim
+++ b/lib/pure/algorithm.nim
@@ -40,7 +40,7 @@ proc merge[T](a, b: var openArray[T], lo, m, hi: int,
               cmp: proc (x, y: T): int, order: TSortOrder) =
   template `<-` (a, b: expr) = 
     when onlySafeCode:
-      a = b
+      shallowCopy(a, b)
     else:
       copyMem(addr(a), addr(b), sizeof(T))
   # optimization: If max(left) <= min(right) there is nothing to do!
@@ -54,7 +54,7 @@ proc merge[T](a, b: var openArray[T], lo, m, hi: int,
   when onlySafeCode:
     var bb = 0
     while j <= m:
-      b[bb] = a[j]
+      b[bb] <- a[j]
       inc(bb)
       inc(j)
   else:
@@ -74,7 +74,7 @@ proc merge[T](a, b: var openArray[T], lo, m, hi: int,
   # copy rest of b:
   when onlySafeCode:
     while k < j:
-      a[k] = b[i]
+      a[k] <- b[i]
       inc(k)
       inc(i)
   else:
diff --git a/lib/pure/osproc.nim b/lib/pure/osproc.nim
index de5317717..60bef813d 100755
--- a/lib/pure/osproc.nim
+++ b/lib/pure/osproc.nim
@@ -475,9 +475,9 @@ elif not defined(useNimRtl):
     result.exitCode = -3 # for ``waitForExit``
     if pipe(p_stdin) != 0'i32 or pipe(p_stdout) != 0'i32 or
        pipe(p_stderr) != 0'i32:
-      OSError("failed to create a pipe")
+      OSError()
     var Pid = fork()
-    if Pid < 0: OSError("failed to fork process")
+    if Pid < 0: OSError()
 
     if pid == 0:
       ## child process: