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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-08-14 23:55:57 -05:00
parent b333583da4 1c2f76f964
commit 37bd1bd86d
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 [