Add :error word

2008-09-29 04:09:13 -05:00 · 2008-09-29 04:09:13 -05:00 · df88e5a974
parent e62f068db7
commit df88e5a974
1 changed files with 3 additions and 0 deletions
--- a/basis/debugger/debugger.factor
+++ b/basis/debugger/debugger.factor
@ -22,6 +22,9 @@ M: tuple error-help class ;

 M: string error. print ;

+: :error ( -- )
+    error get error. ;
+
 : :s ( -- )
    error-continuation get data>> stack. ;