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

fuel.help: fix for a small help bug on vocabs without words in them

modern-harvey2
Björn Lindqvist 2017-06-26 15:53:54 +02:00
parent 81446d7948
commit eb62e1fe4e
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/fuel/help/help-tests.factor
View File

@ -16,3 +16,9 @@ IN: fuel.help.tests
{ { $next-link POSTPONE: unit-test "unit-test" } } [ { { $next-link POSTPONE: unit-test "unit-test" } } [
\ unit-test >link \ $next-link next/prev-link \ unit-test >link \ $next-link next/prev-link
] unit-test ] unit-test
{
{ describe-words f }
} [
"help.handbook" vocab-describe-words
] unit-test

3
extra/fuel/help/help.factor
View File

@ -75,7 +75,8 @@ SYMBOL: describe-words
disk-vocabs-for-prefix do-vocab-list ; inline disk-vocabs-for-prefix do-vocab-list ; inline
: vocab-describe-words ( name -- element ) : vocab-describe-words ( name -- element )
[ words. ] with-string-writer \ describe-words swap 2array ; inline [ words. ] with-string-writer dup "\n" = [ drop f ] when
\ describe-words swap 2array ; inline
: vocab-element ( name -- element ) : vocab-element ( name -- element )
dup require \ article swap dup >vocab-link dup require \ article swap dup >vocab-link