From 8133436d6de2caa3202aa312c96687376a961153 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Tue, 5 May 2009 15:54:49 -0500
Subject: [PATCH] literals: Improve ${ word

---
 basis/literals/literals-tests.factor |  6 ++++--
 basis/literals/literals.factor       | 19 ++++++++++++++++---
 2 files changed, 20 insertions(+), 5 deletions(-)
 mode change 100644 => 100755 basis/literals/literals-tests.factor
 mode change 100644 => 100755 basis/literals/literals.factor

diff --git a/basis/literals/literals-tests.factor b/basis/literals/literals-tests.factor
old mode 100644
new mode 100755
index 29072f1299..d7256a64b1
--- a/basis/literals/literals-tests.factor
+++ b/basis/literals/literals-tests.factor
@@ -20,8 +20,10 @@ IN: literals.tests
 
 [ { 1.0 { 0.5 1.5 } 4.0 } ] [ { 1.0 { $[ 1.0 2.0 / ] 1.5 } $[ 2.0 2.0 * ] } ] unit-test
 
-<<
 CONSTANT: constant-a 3
->>
 
 [ { 3 10 "ftw" } ] [ ${ constant-a 10 "ftw" } ] unit-test
+
+: sixty-nine ( -- a b ) 6 9 ;
+
+[ { 6 9 } ] [ ${ sixty-nine } ] unit-test
diff --git a/basis/literals/literals.factor b/basis/literals/literals.factor
old mode 100644
new mode 100755
index 7c7592dda8..ba1da393b1
--- a/basis/literals/literals.factor
+++ b/basis/literals/literals.factor
@@ -1,8 +1,21 @@
 ! (c) Joe Groff, see license for details
 USING: accessors continuations kernel parser words quotations
-combinators.smart vectors sequences ;
+combinators.smart vectors sequences fry ;
 IN: literals
 
-SYNTAX: $ scan-word [ def>> call ] curry with-datastack >vector ;
+<PRIVATE
+
+! Use def>> call so that CONSTANT:s defined in the same file can
+! be called
+
+: expand-literal ( seq obj -- seq' )
+    '[ _ dup word? [ def>> call ] when ] with-datastack ;
+
+: expand-literals ( seq -- seq' )
+    [ [ { } ] dip expand-literal ] map concat ;
+
+PRIVATE>
+
+SYNTAX: $ scan-word expand-literal >vector ;
 SYNTAX: $[ parse-quotation with-datastack >vector ;
-SYNTAX: ${ \ } [ [ ?execute ] { } map-as ] parse-literal ;
+SYNTAX: ${ \ } [ expand-literals ] parse-literal ;