about summary refs log tree commit diff stats
path: root/edit
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2017-08-22 07:49:08 -0700
committerKartik K. Agaram <vc@akkartik.com>2017-08-22 07:49:08 -0700
commitcf0839eaa9d460dc6da874bacc5f63e7afa74b7f (patch)
tree2406af09d96405545735f20521836a91960b16fa /edit
parent90668776a9ce12d2c3c3d58a92eb9a398f365c93 (diff)
downloadmu-cf0839eaa9d460dc6da874bacc5f63e7afa74b7f.tar.gz
3978
Diffstat (limited to 'edit')
-rw-r--r--edit/011-errors.mu31
1 files changed, 18 insertions, 13 deletions
diff --git a/edit/011-errors.mu b/edit/011-errors.mu
index cdc69fa0..dcccf598 100644
--- a/edit/011-errors.mu
+++ b/edit/011-errors.mu
@@ -24,19 +24,23 @@ def! update-recipes env:&:environment, resources:&:resources, screen:&:screen ->
 ]
 
 after <render-recipe-errors-on-F4> [
-  {
-    recipe-errors:text <- get *env, recipe-errors:offset
-    break-unless recipe-errors
-    recipes:&:editor <- get *env, recipes:offset
-    left:num <- get *recipes, left:offset
-    right:num <- get *recipes, right:offset
-    row:num <- get *recipes, bottom:offset
-    row, screen <- render-text screen, recipe-errors, left, right, 1/red, row
-    # draw dotted line after recipes
-    draw-horizontal screen, row, left, right, 9480/horizontal-dotted
-    row <- add row, 1
-    clear-screen-from screen, row, left, left, right
-  }
+  screen <- render-recipe-errors env, screen
+]
+
+def render-recipe-errors env:&:environment, screen:&:screen -> screen:&:screen [
+  local-scope
+  load-ingredients
+  recipe-errors:text <- get *env, recipe-errors:offset
+  return-unless recipe-errors
+  recipes:&:editor <- get *env, recipes:offset
+  left:num <- get *recipes, left:offset
+  right:num <- get *recipes, right:offset
+  row:num <- get *recipes, bottom:offset
+  row, screen <- render-text screen, recipe-errors, left, right, 1/red, row
+  # draw dotted line after recipes
+  draw-horizontal screen, row, left, right, 9480/horizontal-dotted
+  row <- add row, 1
+  clear-screen-from screen, row, left, left, right
 ]
 
 container environment [
@@ -62,6 +66,7 @@ before <run-sandboxes-end> [
 
 after <render-sandbox-errors-on-F4> [
   {
+    recipe-errors:text <- get *env, recipe-errors:offset
     break-if recipe-errors
     error-index:num <- get *env, error-index:offset
     sandboxes-completed-successfully?:bool <- equal error-index, -1