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.
---
 sandbox/005-sandbox.mu      | 9 +--------
 sandbox/008-sandbox-test.mu | 7 ++++++-
 2 files changed, 7 insertions(+), 9 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/005-sandbox.mu b/sandbox/005-sandbox.mu
index 01a6422c..8c7e80c6 100644
--- a/sandbox/005-sandbox.mu
+++ b/sandbox/005-sandbox.mu
@@ -321,14 +321,7 @@ def! restore-sandboxes env:address:programming-environment-data -> env:address:p
     # 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/sandbox/008-sandbox-test.mu b/sandbox/008-sandbox-test.mu
index 61d12167..e88d7240 100644
--- a/sandbox/008-sandbox-test.mu
+++ b/sandbox/008-sandbox-test.mu
@@ -98,7 +98,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