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

help.lint: check examples in articles

db4
Slava Pestov 2009-01-27 01:41:57 -06:00
parent ecbb36ad80
commit 9935c8f3c0
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/help/lint/lint.factor
View File

@ -19,8 +19,8 @@ IN: help.lint
] keep ] keep
peek assert= ; peek assert= ;
: check-examples ( word element -- ) : check-examples ( element -- )
nip \ $example swap elements [ check-example ] each ; \ $example swap elements [ check-example ] each ;
: extract-values ( element -- seq ) : extract-values ( element -- seq )
\ $values swap elements dup empty? [ \ $values swap elements dup empty? [
@ -64,8 +64,8 @@ IN: help.lint
] ]
} 2|| [ "$values don't match stack effect" throw ] unless ; } 2|| [ "$values don't match stack effect" throw ] unless ;
: check-see-also ( word element -- ) : check-see-also ( element -- )
nip \ $see-also swap elements [ \ $see-also swap elements [
rest dup prune [ length ] bi@ assert= rest dup prune [ length ] bi@ assert=
] each ; ] each ;
@ -100,9 +100,8 @@ M: help-error error.
[ [
dup word-help '[ dup word-help '[
_ _ { _ _ {
[ check-examples ]
[ check-values ] [ check-values ]
[ check-see-also ] [ nip [ check-examples ] [ check-see-also ] bi ]
[ [ check-rendering ] [ check-modules ] bi* ] [ [ check-rendering ] [ check-modules ] bi* ]
} 2cleave } 2cleave
] assert-depth ] assert-depth
@ -114,7 +113,10 @@ M: help-error error.
: check-article ( article -- ) : check-article ( article -- )
[ [
dup article-content dup article-content
'[ _ check-rendering _ check-modules ] '[
_ check-rendering
_ [ check-modules ] [ check-examples ] bi
]
assert-depth assert-depth
] check-something ; ] check-something ;