# generic backtrace hook, for debugging custom abort handlers
# used in console, puredata, guile, ...

# BROKEN

# the debugger is defined in script/console.pf

(()()) variable! 	backtrace-task		# backtrace (continuation AFTER failing primitive)
undef variable!		backtrace-msg		# error message
' nop variable!		backtrace-xt		# xt of primitive causing error
e_internal variable!	backtrace-error		# error atom (throw argument)

# macro to save backtrace. called from abort handler
: backtrace
	backtrace-error !
	try last-error-xt recover drop undef endtry backtrace-xt !
	backtrace-state backtrace-task ! ;