steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

command-line: don't pull in tools.errors 

tools.errors brings the debugger with it, which bloats deploy image size
db4
Joe Groff 2011-12-07 10:52:58 -08:00
parent df19e2ee01
commit 47fc91e948
3 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/command-line/command-line.factor
View File

@ -3,25 +3,12 @@
USING: accessors alien.strings assocs continuations fry init USING: accessors alien.strings assocs continuations fry init
io.encodings.utf8 io.files io.pathnames kernel kernel.private io.encodings.utf8 io.files io.pathnames kernel kernel.private
namespaces parser parser.notes sequences source-files namespaces parser parser.notes sequences source-files
source-files.errors splitting system tools.errors source-files.errors splitting system vocabs.loader ;
vocabs.loader ;
IN: command-line IN: command-line
SYMBOL: user-init-errors SYMBOL: user-init-errors
SYMBOL: +user-init-error+ SYMBOL: +user-init-error+
T{ error-type
{ type +user-init-error+ }
{ word ":user-init-errors" }
{ plural "rc file errors" }
{ icon "vocab:ui/tools/error-list/icons/user-init-error.tiff" }
{ quot [ user-init-errors get-global values ] }
{ forget-quot [ user-init-errors get-global delete-at ] }
} define-error-type
: :user-init-errors ( -- )
user-init-errors get-global values errors. ;
TUPLE: user-init-error error file line# asset ; TUPLE: user-init-error error file line# asset ;
: <user-init-error> ( error -- error' ) : <user-init-error> ( error -- error' )

12
basis/compiler/errors/errors.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors source-files.errors kernel namespaces assocs fry USING: accessors source-files.errors kernel namespaces assocs fry
summary ; summary command-line ;
IN: compiler.errors IN: compiler.errors
SYMBOL: +compiler-error+ SYMBOL: +compiler-error+
@ -70,3 +70,13 @@ M: no-such-symbol summary drop "Symbol not found" ;
: no-such-symbol ( name message word -- ) \ no-such-symbol linkage-error ; : no-such-symbol ( name message word -- ) \ no-such-symbol linkage-error ;
ERROR: not-compiled word error ; ERROR: not-compiled word error ;
T{ error-type
{ type +user-init-error+ }
{ word ":user-init-errors" }
{ plural "rc file errors" }
{ icon "vocab:ui/tools/error-list/icons/user-init-error.tiff" }
{ quot [ user-init-errors get-global values ] }
{ forget-quot [ user-init-errors get-global delete-at ] }
} define-error-type

5
basis/tools/errors/errors.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs debugger io kernel sequences source-files.errors USING: assocs debugger io kernel sequences source-files.errors
summary accessors continuations make math.parser io.styles namespaces summary accessors continuations make math.parser io.styles namespaces
compiler.errors prettyprint source-files.errors.debugger ; compiler.errors prettyprint source-files.errors.debugger command-line ;
IN: tools.errors IN: tools.errors
#! Tools for source-files.errors. Used by tools.tests and others #! Tools for source-files.errors. Used by tools.tests and others
@ -20,6 +20,9 @@ IN: tools.errors
: :linkage ( -- ) linkage-errors get values errors. ; : :linkage ( -- ) linkage-errors get values errors. ;
: :user-init-errors ( -- )
user-init-errors get-global values errors. ;
M: not-compiled summary M: not-compiled summary
word>> name>> "The word " " cannot be executed because it failed to compile" surround ; word>> name>> "The word " " cannot be executed because it failed to compile" surround ;