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

help.lint.checks: allow $slot to be used with struct-class.

db4
John Benediktsson 2014-06-08 18:12:26 -07:00
parent de12140505
commit 5986f9cbe3
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/help/lint/checks/checks.factor
View File

@ -1,11 +1,12 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs classes classes.tuple combinators
combinators.short-circuit debugger definitions effects eval
formatting fry grouping help help.markup help.topics io
io.streams.string kernel macros namespaces sequences
sequences.deep sets splitting strings summary unicode.categories
vocabs vocabs.loader words words.constant words.symbol ;
USING: accessors arrays assocs classes classes.struct
classes.tuple combinators combinators.short-circuit debugger
definitions effects eval formatting fry grouping help
help.markup help.topics io io.streams.string kernel macros
namespaces sequences sequences.deep sets splitting strings
summary unicode.categories vocabs vocabs.loader words
words.constant words.symbol ;
FROM: sets => members ;
IN: help.lint.checks
@ -152,7 +153,10 @@ SYMBOL: vocab-articles
: check-class-description ( word element -- )
\ $class-description swap elements over class? [
[ all-slots [ name>> ] map ] [ extract-slots ] bi*
[
dup struct-class? [ struct-slots ] [ all-slots ] if
[ name>> ] map
] [ extract-slots ] bi*
[ swap member? not ] with filter [
", " join "Described $slot does not exist: " prepend
simple-lint-error