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