mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

(scm_display_backtrace_with_highlights): Minor

Browse source 
improvements to docstring.
(scm_backtrace_with_highlights): Analogous improvements.
This commit is contained in:
Neil Jerram 2006-08-28 22:17:26 +00:00
parent fc3d5c436f
commit b5944f6672
2 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2006-08-28 Neil Jerram <neil@ossau.uklinux.net>
* backtrace.c (scm_display_backtrace_with_highlights): Minor
improvements to docstring.
(scm_backtrace_with_highlights): Analogous improvements.
2006-08-11 Neil Jerram <neil@ossau.uklinux.net> 2006-08-11 Neil Jerram <neil@ossau.uklinux.net>
* stacks.c (scm_last_stack_frame): Correct docstring (returns a * stacks.c (scm_last_stack_frame): Correct docstring (returns a

16
libguile/backtrace.c
View file

@ -732,12 +732,12 @@ SCM_DEFINE (scm_display_backtrace_with_highlights, "display-backtrace", 2, 3, 0,
(SCM stack, SCM port, SCM first, SCM depth, SCM highlights), (SCM stack, SCM port, SCM first, SCM depth, SCM highlights),
"Display a backtrace to the output port @var{port}. @var{stack}\n" "Display a backtrace to the output port @var{port}. @var{stack}\n"
"is the stack to take the backtrace from, @var{first} specifies\n" "is the stack to take the backtrace from, @var{first} specifies\n"
"where in the stack to start and @var{depth} how much frames\n" "where in the stack to start and @var{depth} how many frames\n"
"to display. Both @var{first} and @var{depth} can be @code{#f},\n" "to display. @var{first} and @var{depth} can be @code{#f},\n"
"which means that default values will be used.\n" "which means that default values will be used.\n"
"When @var{highlights} is given,\n" "If @var{highlights} is given it should be a list; the elements\n"
"it should be a list and all members of it are highligthed in\n" "of this list will be highlighted wherever they appear in the\n"
"the backtrace.") "backtrace.")
#define FUNC_NAME s_scm_display_backtrace_with_highlights #define FUNC_NAME s_scm_display_backtrace_with_highlights
{ {
struct display_backtrace_args a; struct display_backtrace_args a;
@ -771,9 +771,9 @@ SCM_VARIABLE (scm_has_shown_backtrace_hint_p_var, "has-shown-backtrace-hint?");
SCM_DEFINE (scm_backtrace_with_highlights, "backtrace", 0, 1, 0, SCM_DEFINE (scm_backtrace_with_highlights, "backtrace", 0, 1, 0,
(SCM highlights), (SCM highlights),
"Display a backtrace of the stack saved by the last error\n" "Display a backtrace of the stack saved by the last error\n"
"to the current output port. When @var{highlights} is given,\n" "to the current output port. If @var{highlights} is given\n"
"it should be a list and all members of it are highligthed in\n" "it should be a list; the elements of this list will be\n"
"the backtrace.") "highlighted wherever they appear in the backtrace.")
#define FUNC_NAME s_scm_backtrace_with_highlights #define FUNC_NAME s_scm_backtrace_with_highlights
{ {
SCM port = scm_current_output_port (); SCM port = scm_current_output_port ();