about summary refs log tree commit diff stats
path: root/edit/005-sandbox.mu
diff options
context:
space:
mode:
Diffstat (limited to 'edit/005-sandbox.mu')
-rw-r--r--edit/005-sandbox.mu10
1 files changed, 7 insertions, 3 deletions
diff --git a/edit/005-sandbox.mu b/edit/005-sandbox.mu
index 4d4b93ef..80dd4120 100644
--- a/edit/005-sandbox.mu
+++ b/edit/005-sandbox.mu
@@ -325,6 +325,7 @@ def restore-sandboxes env:address:programming-environment-data -> env:address:pr
     filename:address:array:character <- to-text idx
     contents:address:array:character <- restore filename
     break-unless contents  # stop at first error; assuming file didn't exist
+                           # todo: handle empty sandbox
     # create new sandbox for file
     curr <- new sandbox-data:type
     *curr <- put *curr, data:offset, contents
@@ -336,15 +337,18 @@ def restore-sandboxes env:address:programming-environment-data -> env:address:pr
       <end-restore-sandbox>
     }
     +continue
-    idx <- add idx, 1
     {
-      break-unless prev
+      break-if idx
+      *env <- put *env, sandbox:offset, curr
+    }
+    {
+      break-unless idx
       *prev <- put *prev, next-sandbox:offset, curr
     }
+    idx <- add idx, 1
     prev <- copy curr
     loop
   }
-  *env <- put *env, sandbox:offset, curr
   # update sandbox count
   *env <- put *env, number-of-sandboxes:offset, idx
 ]