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

View File

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