diff options
author | Andy Wingo <wingo@pobox.com> | 2015-11-27 12:17:36 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-12-01 11:30:54 +0100 |
commit | 39090e677eed54761e0952f2575ddef1504545d3 (patch) | |
tree | b583cc7c138840531c943af36bfe4be7422df1e9 /libguile/frames.h | |
parent | 8af3423efe1aa4168a097cf9ae11d3c4338894bb (diff) | |
download | guile-39090e677eed54761e0952f2575ddef1504545d3.tar.gz |
Add frame-procedure-name
* libguile/frames.c (frame_procedure_name_var): New static definition.
(init_frame_procedure_name_var): New helper.
(scm_frame_procedure_name): New function that returns the name of the
frame's procedure, as frame-procedure is to be deprecated.
* libguile/frames.h (scm_frame_procedure_name): Export.
* module/ice-9/boot-9.scm (exception-printers): Use frame-procedure-name
instead of procedure-name on frame-procedure.
* module/system/vm/frame.scm (frame-procedure-name): New private
function, implementing scm_frame_procedure_name.
(frame-call-representation): Use frame-procedure-name to get the
procedure name to print.
Diffstat (limited to 'libguile/frames.h')
-rw-r--r-- | libguile/frames.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/frames.h b/libguile/frames.h index bb402ae71..241e3f3ad 100644 --- a/libguile/frames.h +++ b/libguile/frames.h @@ -157,6 +157,7 @@ SCM_INTERNAL int scm_c_frame_previous (enum scm_vm_frame_kind kind, SCM_API SCM scm_frame_p (SCM obj); SCM_API SCM scm_frame_procedure (SCM frame); +SCM_API SCM scm_frame_procedure_name (SCM frame); SCM_API SCM scm_frame_call_representation (SCM frame); SCM_API SCM scm_frame_arguments (SCM frame); SCM_API SCM scm_frame_source (SCM frame); |