From cf0839eaa9d460dc6da874bacc5f63e7afa74b7f Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Tue, 22 Aug 2017 07:49:08 -0700
Subject: 3978

---
 edit/011-errors.mu | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

(limited to 'edit')

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
-- 
cgit 1.4.1-2-gfad0