From 4307234550b1a03ea79b26bd88b5e3092f24b290 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 8 Dec 2008 23:13:26 -0800
Subject: [PATCH] literals vocab. you can interpolate CONSTANT-WORD values into
 a literal sequence with { $ CONSTANT-WORD } .

---
 extra/literals/literals-tests.factor | 12 ++++++++++++
 extra/literals/literals.factor       |  4 ++++
 2 files changed, 16 insertions(+)
 create mode 100644 extra/literals/literals-tests.factor
 create mode 100644 extra/literals/literals.factor

diff --git a/extra/literals/literals-tests.factor b/extra/literals/literals-tests.factor
new file mode 100644
index 0000000000..b88a286a59
--- /dev/null
+++ b/extra/literals/literals-tests.factor
@@ -0,0 +1,12 @@
+USING: kernel literals tools.test ;
+IN: literals.tests
+
+<<
+: five 5 ;
+: seven-eleven 7 11 ;
+: six-six-six 6 6 6 ;
+>>
+
+[ { 5 } ] [ { $ five } ] unit-test
+[ { 7 11 } ] [ { $ seven-eleven } ] unit-test
+[ { 6 6 6 } ] [ { $ six-six-six } ] unit-test
diff --git a/extra/literals/literals.factor b/extra/literals/literals.factor
new file mode 100644
index 0000000000..d46f492cd4
--- /dev/null
+++ b/extra/literals/literals.factor
@@ -0,0 +1,4 @@
+USING: continuations kernel parser words ;
+IN: literals
+
+: $ scan-word [ execute ] curry with-datastack ; parsing