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

help.lint.checks: prettyprints the examples stack automatically. 

This allows us to not have to "USE: prettyprint" and "." in the examples.
Much cleaner this way!
char-rename
John Benediktsson 2017-05-03 18:15:36 -07:00
parent 0fd663e25d
commit 1f4bcc2d56
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,12 +1,12 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs classes classes.struct USING: accessors arrays assocs classes classes.struct
classes.tuple combinators combinators.short-circuit debugger classes.tuple combinators combinators.short-circuit
definitions effects eval formatting fry grouping help combinators.smart debugger definitions effects eval formatting
help.markup help.topics io io.streams.string kernel macros math fry grouping help help.markup help.topics io io.streams.string
namespaces sequences sequences.deep sets splitting strings kernel macros math namespaces prettyprint sequences
summary tools.destructors unicode vocabs vocabs.loader words sequences.deep sets splitting strings summary tools.destructors
words.constant words.symbol ; unicode vocabs vocabs.loader words words.constant words.symbol ;
IN: help.lint.checks IN: help.lint.checks
ERROR: simple-lint-error message ; ERROR: simple-lint-error message ;
@ -32,8 +32,9 @@ SYMBOL: vocab-articles
[ [
'[ '[
_ rest [ _ rest [
but-last "\n" join but-last "\n" join parse-string [
[ (eval>string) ] call( code -- output ) [ output>array [ . ] each ] call( quot -- )
] with-string-writer
"\n" ?tail drop "\n" ?tail drop
] keep ] keep
last assert= last assert=