steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

literals: change ${ } to be the executable code arrays.

db4
John Benediktsson 2013-04-12 11:18:34 -07:00
parent ffa742c7f8
commit e501f61141
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/literals/literals-tests.factor
View File

@ -23,6 +23,11 @@ IN: literals.tests
CONSTANT: constant-a 3 CONSTANT: constant-a 3
[ { 3 10 "ftw" } ] [ ${ constant-a 10 "ftw" } ] unit-test [ { 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 ; : sixty-nine ( -- a b ) 6 9 ;

2
basis/literals/literals.factor
View File

@ -17,7 +17,7 @@ IN: literals
] with-datastack ; ] with-datastack ;
: expand-literals ( seq -- seq' ) : expand-literals ( seq -- seq' )
[ [ { } ] dip expand-literal ] map concat ; { } [ expand-literal ] reduce ;
PRIVATE> PRIVATE>