From ac8acc7b05774ac5777d5a03311728fb14d3f217 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 11 May 2016 19:28:29 -0700
Subject: 2954 - bugfix: $system

The actual fix is in the layer rewriting literal strings.
---
 edit/005-sandbox.mu      | 9 +--------
 edit/008-sandbox-test.mu | 7 ++++++-
 2 files changed, 7 insertions(+), 9 deletions(-)

(limited to 'edit')

diff --git a/edit/005-sandbox.mu b/edit/005-sandbox.mu
index 9ae94ee3..f331c356 100644
--- a/edit/005-sandbox.mu
+++ b/edit/005-sandbox.mu
@@ -329,14 +329,7 @@ def restore-sandboxes env:address:programming-environment-data -> env:address:pr
     # create new sandbox for file
     curr <- new sandbox-data:type
     *curr <- put *curr, data:offset, contents
-    # restore expected output for sandbox if it exists
-    {
-      filename <- append filename, [.out]
-      contents <- restore filename
-      break-unless contents
-      <end-restore-sandbox>
-    }
-    +continue
+    <end-restore-sandbox>
     {
       break-if idx
       *env <- put *env, sandbox:offset, curr
diff --git a/edit/008-sandbox-test.mu b/edit/008-sandbox-test.mu
index 98d1bf57..e15c79ec 100644
--- a/edit/008-sandbox-test.mu
+++ b/edit/008-sandbox-test.mu
@@ -99,7 +99,12 @@ before <end-save-sandbox> [
 ]
 
 before <end-restore-sandbox> [
-  *curr <- put *curr, expected-response:offset, contents
+  {
+    filename <- append filename, [.out]
+    contents <- restore filename
+    break-unless contents
+    *curr <- put *curr, expected-response:offset, contents
+  }
 ]
 
 # clicks on sandbox responses save it as 'expected'
-- 
cgit 1.4.1-2-gfad0