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

help.lint.checks: temporary fix for $quotation changes.

db4
John Benediktsson 2014-05-19 10:04:39 -07:00
parent af48be41c8
commit ca061f79ff
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,7 @@
USING: accessors arrays assocs classes classes.tuple combinators USING: accessors arrays assocs classes classes.tuple combinators
combinators.short-circuit debugger definitions effects eval combinators.short-circuit debugger definitions effects eval
formatting fry grouping help help.markup help.topics io formatting fry grouping help help.markup help.topics io
io.streams.string kernel macros namespaces sequences io.streams.string kernel macros namespaces present sequences
sequences.deep sets splitting strings summary unicode.categories sequences.deep sets splitting strings summary unicode.categories
vocabs vocabs.loader words words.constant words.symbol ; vocabs vocabs.loader words words.constant words.symbol ;
FROM: sets => members ; FROM: sets => members ;
@ -45,7 +45,7 @@ SYMBOL: vocab-articles
\ $values swap elements dup empty? [ \ $values swap elements dup empty? [
first rest [ first rest [
\ $quotation swap elements dup empty? [ drop f ] [ \ $quotation swap elements dup empty? [ drop f ] [
first second first second present
] if ] if
] map ] map
] unless ; ] unless ;