From d2222179c649b47cf16eabb2efe1b05b5493bf99 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 11 Jan 2008 01:01:38 -0500 Subject: [PATCH] Clean up compiler.errors --- core/compiler/errors/errors.factor | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/core/compiler/errors/errors.factor b/core/compiler/errors/errors.factor index 65de89524a..363c13c478 100755 --- a/core/compiler/errors/errors.factor +++ b/core/compiler/errors/errors.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2007, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: kernel namespaces assocs prettyprint io sequences -sorting continuations debugger math ; +sorting continuations debugger math math.parser ; IN: compiler.errors SYMBOL: compiler-errors @@ -41,8 +41,9 @@ M: object compiler-warning? drop f ; : (compiler-report) ( what assoc -- ) length dup zero? [ 2drop ] [ - ":" write over write " - print " write pprint - " compiler " write write "." print + [ + ":" % over % " - print " % # " compiler " % % "." % + ] "" make print ] if ; : compiler-report ( -- )