break circularity

diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor
index 01233d186ccffab303c3eae2733acc86418914b6..661c3defcdca9cf310c4a15304e39f3cdb552ac8 100644 (file)
--- a/basis/command-line/command-line.factor
+++ b/basis/command-line/command-line.factor
@@ -102,3 +102,5 @@ SYMBOL: main-vocab-hook
     H{ } user-init-errors set-global
     default-cli-args
 ] "command-line" add-startup-hook
+
+{ "debugger" "command-line" } "command-line.debugger" require-when

diff --git a/basis/command-line/debugger/debugger.factor b/basis/command-line/debugger/debugger.factor
new file mode 100644 (file)
index 0000000..5b25d83
--- /dev/null
+++ b/basis/command-line/debugger/debugger.factor
@@ -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. ;

diff --git a/basis/source-files/errors/debugger/debugger.factor b/basis/source-files/errors/debugger/debugger.factor
index fcf56d0529672ca7bf3d97fdc775fce5d5580e16..5c28fb755895bbe3b17906693958510e2ca491f9 100644 (file)
--- a/basis/source-files/errors/debugger/debugger.factor
+++ b/basis/source-files/errors/debugger/debugger.factor
@@ -1,5 +1,6 @@
+! (c)2010 Joe Groff bsd license
 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
 
 CONSTANT: +listener-input+ "<Listener input>"
@@ -17,6 +18,3 @@ M: source-file-error error.
     [ asset>> [ "Asset: " write short. nl ] when* ]
     [ error>> error. ]
     tri ;
-
-M: user-init-error error.
-    error>> error. ;