From df88e5a974ad05415b51aeff49b5b42c8ec1e0e9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 29 Sep 2008 04:09:13 -0500
Subject: [PATCH] Add :error word

---
 basis/debugger/debugger.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 20e0703ce0..ec93a01c19 100755
--- 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. ;