Create basis vocab root

[factor.git] / core / source-files / source-files.factor

diff --git a/core/source-files/source-files.factor b/core/source-files/source-files.factor
index abe1b8b661159855d00dc4a7c6ed27dc391be0a8..3023c4e8d2d3a4c947a0368250bcf142235a5cc5 100755 (executable)
--- a/core/source-files/source-files.factor
+++ b/core/source-files/source-files.factor
@@ -1,10 +1,10 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: arrays definitions generic assocs kernel math namespaces
-prettyprint sequences strings vectors words quotations summary
-io.styles io combinators sorting splitting math.parser effects
-continuations debugger io.files checksums checksums.crc32 vocabs
-hashtables graphs compiler.units io.encodings.utf8 accessors ;
+sequences strings vectors words quotations io.styles io
+combinators sorting splitting math.parser effects continuations
+io.files checksums checksums.crc32 vocabs hashtables graphs
+compiler.units io.encodings.utf8 accessors ;
 IN: source-files
 
 SYMBOL: source-files
@@ -82,20 +82,6 @@ TUPLE: source-file-error file error ;
         file get >>file
         swap >>error ;
 
-: file. ( file -- ) path>> <pathname> . ;
-
-M: source-file-error error.
-    [ file>> file. ] [ error>> error. ] bi ;
-
-M: source-file-error summary
-    error>> summary ;
-
-M: source-file-error compute-restarts
-    error>> compute-restarts ;
-
-M: source-file-error error-help
-    error>> error-help ;
-
 : with-source-file ( name quot -- )
     #! Should be called from inside with-compilation-unit.
     [