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

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

This reverts commit 1f4bcc2d56.
char-rename
John Benediktsson 2017-05-03 18:21:25 -07:00
parent aac6780285
commit e1b7d5db1f
1 changed files with 8 additions and 9 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 classes.tuple combinators combinators.short-circuit debugger
combinators.smart debugger definitions effects eval formatting definitions effects eval formatting fry grouping help
fry grouping help help.markup help.topics io io.streams.string help.markup help.topics io io.streams.string kernel macros math
kernel macros math namespaces prettyprint sequences namespaces sequences sequences.deep sets splitting strings
sequences.deep sets splitting strings summary tools.destructors summary tools.destructors unicode vocabs vocabs.loader words
unicode vocabs vocabs.loader words words.constant words.symbol ; words.constant words.symbol ;
IN: help.lint.checks IN: help.lint.checks
ERROR: simple-lint-error message ; ERROR: simple-lint-error message ;
@ -32,9 +32,8 @@ SYMBOL: vocab-articles
[ [
'[ '[
_ rest [ _ rest [
but-last "\n" join parse-string [ but-last "\n" join
[ output>array [ . ] each ] call( quot -- ) [ (eval>string) ] call( code -- output )
] with-string-writer
"\n" ?tail drop "\n" ?tail drop
] keep ] keep
last assert= last assert=