24 lines
1.0 KiB
Plaintext
24 lines
1.0 KiB
Plaintext
USING: errors help ;
|
|
|
|
HELP: error f
|
|
{ $description "Global variable holding most-recently thrown error." }
|
|
{ $notes "Only updated by " { $link throw } ", not " { $link rethrow } "." } ;
|
|
|
|
HELP: error-continuation f
|
|
{ $description "Global variable holding current continuation of most-recently thrown error." }
|
|
{ $notes "Only updated by " { $link throw } ", not " { $link rethrow } "." } ;
|
|
|
|
HELP: :s "( -- )"
|
|
{ $description "Prints the datastack at the time of the most recent error. Used for interactive debugging." } ;
|
|
|
|
HELP: :r "( -- )"
|
|
{ $description "Prints the callstack at the time of the most recent error. Used for interactive debugging." } ;
|
|
|
|
HELP: :get "( variable -- value )"
|
|
{ $values { "variable" "an object" } { "value" "the value, or f" } }
|
|
{ $description "Looks up the value of a variable at the time of the most recent error." } ;
|
|
|
|
HELP: try "( quot -- )"
|
|
{ $values { "quot" "a quotation" } }
|
|
{ $description "Calls the quotation. If it throws an error, logs the error to the default stream and restores the datastack." } ;
|