3704

Bugfix: writing to a new file in a non-empty fake file system.

The one time I try to get a little clever, it bites me in the ass.
That'll teach me..

1 files changed, 8 insertions, 4 deletions

diff --git a/088file.mu b/088file.mu
index e91723ab..b7358327 100644
--- a/088file.mu
+++ b/088file.mu
@@ -137,10 +137,13 @@ def transmit-to-fake-file resources:&:resources, filename:text, source:&:source:
     tmp:resource <- index *data, i
     curr-filename <- get tmp, name:offset
     found?:bool <- equal filename, curr-filename
-    loop-unless found?
-    put-index *data, i, new-resource
-    reset lock
-    return
+    {
+      break-unless found?
+      put-index *data, i, new-resource
+      jump +unlock-and-exit
+    }
+    i <- add i, 1
+    loop
   }
   # if file didn't already exist, make room for it
   new-len:num <- add len, 1
@@ -156,5 +159,6 @@ def transmit-to-fake-file resources:&:resources, filename:text, source:&:source:
   }
   # write new file
   put-index *new-data, len, new-resource
+  +unlock-and-exit
   reset lock
 ]