Create basis vocab root

[factor.git] / core / compiler / errors / errors.factor

diff --git a/core/compiler/errors/errors.factor b/core/compiler/errors/errors.factor
index 2bea6ad97426f307055eaa32495133d2609a668f..e21348fd19c1ed7f9bb3211db00444796f382377 100755 (executable)
--- 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 math.parser ;
+USING: kernel namespaces assocs io sequences
+sorting continuations math math.parser ;
 IN: compiler.errors
 
 SYMBOL: +error+
@@ -12,18 +12,14 @@ GENERIC: compiler-error-type ( error -- ? )
 
 M: object compiler-error-type drop +error+ ;
 
+GENERIC# compiler-error. 1 ( error word -- )
+
 <PRIVATE
 
 SYMBOL: compiler-errors
 
 SYMBOL: with-compiler-errors?
 
-: compiler-error. ( error word -- )
-    nl
-    "While compiling " write pprint ": " print
-    nl
-    print-error ;
-
 : errors-of-type ( type -- assoc )
     compiler-errors get-global
     swap [ >r nip compiler-error-type r> eq? ] curry
@@ -53,18 +49,18 @@ SYMBOL: with-compiler-errors?
 
 PRIVATE>
 
-: compiler-error ( error word -- )
-    with-compiler-errors? get [
-        compiler-errors get pick
-        [ set-at ] [ delete-at drop ] if
-    ] [ 2drop ] if ;
-
 : :errors ( -- ) +error+ compiler-errors. ;
 
 : :warnings ( -- ) +warning+ compiler-errors. ;
 
 : :linkage ( -- ) +linkage+ compiler-errors. ;
 
+: compiler-error ( error word -- )
+    with-compiler-errors? get [
+        compiler-errors get pick
+        [ set-at ] [ delete-at drop ] if
+    ] [ 2drop ] if ;
+
 : with-compiler-errors ( quot -- )
     with-compiler-errors? get "quiet" get or [ call ] [
         [