From e1b7d5db1f97a5826acabab0e551cbf9e7614e9d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 3 May 2017 18:21:25 -0700 Subject: [PATCH] Revert "help.lint.checks: prettyprints the examples stack automatically." This reverts commit 1f4bcc2d5625efab3eedaa40df80da055578fc57. --- basis/help/lint/checks/checks.factor | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor index 1c2d648cca..e5f3a93e4a 100644 --- a/basis/help/lint/checks/checks.factor +++ b/basis/help/lint/checks/checks.factor @@ -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=