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

break circularity

db4
Joe Groff 2011-11-27 11:45:28 -08:00
parent 0f137bafe9
commit ad92bf7486
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -102,3 +102,5 @@ SYMBOL: main-vocab-hook
H{ } user-init-errors set-global H{ } user-init-errors set-global
default-cli-args default-cli-args
] "command-line" add-startup-hook ] "command-line" add-startup-hook
{ "debugger" "command-line" } "command-line.debugger" require-when

6
basis/command-line/debugger/debugger.factor Normal file
View File

@ -0,0 +1,6 @@
USING: accessors debugger io kernel make math.parser
prettyprint command-line summary ;
IN: command-line.debugger
M: user-init-error error.
error>> error. ;

6
basis/source-files/errors/debugger/debugger.factor
View File

@ -1,5 +1,6 @@
! (c)2010 Joe Groff bsd license
USING: accessors debugger io kernel make math.parser USING: accessors debugger io kernel make math.parser
prettyprint source-files.errors command-line summary ; prettyprint source-files.errors summary ;
IN: source-files.errors.debugger IN: source-files.errors.debugger
CONSTANT: +listener-input+ "<Listener input>" CONSTANT: +listener-input+ "<Listener input>"
@ -17,6 +18,3 @@ M: source-file-error error.
[ asset>> [ "Asset: " write short. nl ] when* ] [ asset>> [ "Asset: " write short. nl ] when* ]
[ error>> error. ] [ error>> error. ]
tri ; tri ;
M: user-init-error error.
error>> error. ;