From e501f61141929fb7a73a8e46670efa9fe49333fb Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 12 Apr 2013 11:18:34 -0700
Subject: [PATCH] literals: change ${ } to be the executable code arrays.

---
 basis/literals/literals-tests.factor | 5 +++++
 basis/literals/literals.factor       | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/basis/literals/literals-tests.factor b/basis/literals/literals-tests.factor
index 4357198db6..b6c76e86ba 100644
--- a/basis/literals/literals-tests.factor
+++ b/basis/literals/literals-tests.factor
@@ -23,6 +23,11 @@ IN: literals.tests
 CONSTANT: constant-a 3
 
 [ { 3 10 "ftw" } ] [ ${ constant-a 10 "ftw" } ] unit-test
+{ { 4 } } [ ${ 1 constant-a + } ] unit-test
+{ { 3 } } [ ${ 1 2 + } ] unit-test
+{ { 1 2 \ + } } [ ${ 1 2 \ + } ] unit-test
+{ { 4 } } [ ${ 1 2 + 1 + } ] unit-test
+{ { 1 3 } } [ ${ 1 2 1 + } ] unit-test
 
 : sixty-nine ( -- a b ) 6 9 ;
 
diff --git a/basis/literals/literals.factor b/basis/literals/literals.factor
index 42a7ab9668..59fca6d903 100644
--- a/basis/literals/literals.factor
+++ b/basis/literals/literals.factor
@@ -17,7 +17,7 @@ IN: literals
     ] with-datastack ;
 
 : expand-literals ( seq -- seq' )
-    [ [ { } ] dip expand-literal ] map concat ;
+    { } [ expand-literal ] reduce ;
 
 PRIVATE>