.

2021-04-15 18:42:14 -07:00 · 2021-04-15 18:42:14 -07:00 · 849f80ac22
parent fced134f8f
commit 849f80ac22
1 changed files with 7 additions and 0 deletions
--- a/shell/main.mu
+++ b/shell/main.mu
@ -43,6 +43,13 @@ fn load-sandbox data-disk: (addr disk), _self: (addr sandbox) {
  var initial-root/ecx: (addr handle cell) <- address initial-root-storage
  read-cell data, initial-root, 0/no-trace
  clear-gap-buffer data
+  #
+  {
+    var initial-root-addr/eax: (addr cell) <- lookup *initial-root
+    compare initial-root-addr, 0
+    break-if-!=
+    return
+  }
  # print: cell -> stream
  print-cell initial-root, s, 0/no-trace
  # stream -> gap-buffer