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

Fix two places that should be "all-disk-vocabs-recursive".

db4
John Benediktsson 2015-06-08 14:37:36 -07:00
parent 1230f56197
commit 90111600b9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/present/present-tests.factor
View File

@ -6,7 +6,7 @@ vocabs.hierarchy ;
{ "Hi" } [ "Hi" present ] unit-test
{ "+" } [ \ + present ] unit-test
{ "kernel" } [ "kernel" lookup-vocab present ] unit-test
{ } [ disk-vocabs-recursive filter-vocabs [ present ] map drop ] unit-test
{ } [ all-disk-vocabs-recursive filter-vocabs [ present ] map drop ] unit-test
{ "1+1j" } [ C{ 1 1 } present ] unit-test
{ "1-1j" } [ C{ 1 -1 } present ] unit-test

2
extra/readline-listener/readline-listener.factor
View File

@ -29,7 +29,7 @@ M: readline-reader prompt.
all-words [ name>> ] map! prefixed ;
: prefixed-vocabs ( prefix -- vocabs )
disk-vocabs-recursive filter-vocabs [ name>> ] map! prefixed ;
all-disk-vocabs-recursive filter-vocabs [ name>> ] map! prefixed ;
: prefixed-colors ( prefix -- colors )
named-colors prefixed ;