From 0e71afabe0637ed1091103aa937fac1c3de08a93 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 9 Jun 2016 14:57:04 -0700
Subject: [PATCH] interpolate: [I to I[[ ]]

---
 language/alien/remote-control/remote-control-tests.factor | 4 ++--
 language/interpolate/interpolate-tests.factor             | 2 +-
 language/interpolate/interpolate.factor                   | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/language/alien/remote-control/remote-control-tests.factor b/language/alien/remote-control/remote-control-tests.factor
index c3a2895512..f373256aa3 100644
--- a/language/alien/remote-control/remote-control-tests.factor
+++ b/language/alien/remote-control/remote-control-tests.factor
@@ -16,7 +16,7 @@ in: alien.remote-control.tests
     image-path :> image
 
     [
-        [I
+        I[[
 #include <vm/master.h>
 #include <stdio.h>
 #include <stdbool.h>
@@ -32,7 +32,7 @@ int main(int argc, char **argv)
     printf("Done.\n");
     return 0;
 }
-        I]
+        ]]
     ] with-string-writer
     [ compile-file ] with-temp-directory
     [ run-test ] with-temp-directory ;
diff --git a/language/interpolate/interpolate-tests.factor b/language/interpolate/interpolate-tests.factor
index f023ec366b..c8fbf05a36 100644
--- a/language/interpolate/interpolate-tests.factor
+++ b/language/interpolate/interpolate-tests.factor
@@ -40,6 +40,6 @@ in: interpolate.tests
 { "Oops, I accidentally the whole economy..." } [
     let[
         "economy" :> noun
-        "accidentally" [ [I Oops, I ${0} the whole ${noun}...I] ] with-string-writer
+        "accidentally" [ I[[ Oops, I ${0} the whole ${noun}...]] ] with-string-writer
     ]
 ] unit-test
diff --git a/language/interpolate/interpolate.factor b/language/interpolate/interpolate.factor
index 5f715bc047..a1fa318a07 100644
--- a/language/interpolate/interpolate.factor
+++ b/language/interpolate/interpolate.factor
@@ -85,6 +85,6 @@ MACRO: interpolate-locals ( str -- quot )
 : interpolate-locals>string ( str -- newstr )
     [ interpolate-locals ] with-string-writer ; inline
 
-SYNTAX: [I
-    "I]" parse-multiline-string
+SYNTAX: I[[
+    "]]" parse-multiline-string
     interpolate-locals-quot append! ;