From 1f4bcc2d5625efab3eedaa40df80da055578fc57 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 3 May 2017 18:15:36 -0700 Subject: [PATCH] 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! --- basis/help/lint/checks/checks.factor | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor index e5f3a93e4a..1c2d648cca 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 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 ; +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 ; IN: help.lint.checks ERROR: simple-lint-error message ; @@ -32,8 +32,9 @@ SYMBOL: vocab-articles [ '[ _ rest [ - but-last "\n" join - [ (eval>string) ] call( code -- output ) + but-last "\n" join parse-string [ + [ output>array [ . ] each ] call( quot -- ) + ] with-string-writer "\n" ?tail drop ] keep last assert=