From c013d63eeac511fe5fbc9fed09003ddacef2ee4f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 29 Aug 2008 16:48:43 -0500 Subject: [PATCH] new accessors --- basis/debugger/debugger.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor index eacbd6a125..eb5e3efa5b 100755 --- a/basis/debugger/debugger.factor +++ b/basis/debugger/debugger.factor @@ -23,16 +23,16 @@ M: tuple error-help class ; M: string error. print ; : :s ( -- ) - error-continuation get continuation-data stack. ; + error-continuation get data>> stack. ; : :r ( -- ) - error-continuation get continuation-retain stack. ; + error-continuation get retain>> stack. ; : :c ( -- ) - error-continuation get continuation-call callstack. ; + error-continuation get call>> callstack. ; : :get ( variable -- value ) - error-continuation get continuation-name assoc-stack ; + error-continuation get name>> assoc-stack ; : :res ( n -- * ) 1- restarts get-global nth f restarts set-global restart ;