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

Fix help lint

db4
Slava Pestov 2008-08-14 23:35:35 -05:00
parent bb76f2f617
commit b06fe6fe9a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,9 +3,9 @@
USING: accessors sequences parser kernel help help.markup USING: accessors sequences parser kernel help help.markup
help.topics words strings classes tools.vocabs namespaces io help.topics words strings classes tools.vocabs namespaces io
io.streams.string prettyprint definitions arrays vectors io.streams.string prettyprint definitions arrays vectors
combinators splitting debugger hashtables sorting effects vocabs combinators combinators.short-circuit splitting debugger
vocabs.loader assocs editors continuations classes.predicate hashtables sorting effects vocabs vocabs.loader assocs editors
macros math sets eval ; continuations classes.predicate macros math sets eval ;
IN: help.lint IN: help.lint
: check-example ( element -- ) : check-example ( element -- )
@ -43,15 +43,15 @@ IN: help.lint
: check-values ( word element -- ) : check-values ( word element -- )
{ {
{ [ over "declared-effect" word-prop ] [ 2drop ] } [ drop "declared-effect" word-prop not ]
{ [ dup contains-funky-elements? not ] [ 2drop ] } [ nip contains-funky-elements? ]
{ [ over macro? not ] [ 2drop ] } [ drop macro? ]
[ [
[ effect-values >array ] [ effect-values >array ]
[ extract-values >array ] [ extract-values >array ]
bi* assert= bi* =
] ]
} cond ; } 2|| [ "$values don't match stack effect" throw ] unless ;
: check-see-also ( word element -- ) : check-see-also ( word element -- )
nip \ $see-also swap elements [ nip \ $see-also swap elements [