mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.

Browse source
This commit is contained in:
Greg J. Badros 2000-01-05 19:05:23 +00:00
parent fb76446506
commit a1ec69163d
63 changed files with 582 additions and 582 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/backtrace.c
View file

@ -246,7 +246,7 @@ display_error_handler (struct display_error_handler_data *data,
return SCM_UNSPECIFIED;
}
GUILE_PROC(scm_display_error, "display-error", 6, 0, 0,
SCM_DEFINE(scm_display_error, "display-error", 6, 0, 0,
(SCM stack, SCM port, SCM subr, SCM message, SCM args, SCM rest),
"")
#define FUNC_NAME s_scm_display_error
@ -283,7 +283,7 @@ static print_params_t default_print_params[] = {
static print_params_t *print_params = default_print_params;
#ifdef GUILE_DEBUG
GUILE_PROC(scm_set_print_params_x, "set-print-params!", 1, 0, 0,
SCM_DEFINE(scm_set_print_params_x, "set-print-params!", 1, 0, 0,
(SCM params),
"")
#define FUNC_NAME s_scm_set_print_params_x
@ -385,7 +385,7 @@ display_application (SCM frame,int indentation,SCM sport,SCM port,scm_print_stat
pstate);
}
GUILE_PROC(scm_display_application, "display-application", 1, 2, 0,
SCM_DEFINE(scm_display_application, "display-application", 1, 2, 0,
(SCM frame, SCM port, SCM indent),
"")
#define FUNC_NAME s_scm_display_application
@ -599,7 +599,7 @@ display_backtrace_body(struct display_backtrace_args *a)
}
#undef FUNC_NAME
GUILE_PROC(scm_display_backtrace, "display-backtrace", 2, 2, 0,
SCM_DEFINE(scm_display_backtrace, "display-backtrace", 2, 2, 0,
(SCM stack, SCM port, SCM first, SCM depth),
"")
#define FUNC_NAME s_scm_display_backtrace
@ -621,7 +621,7 @@ GUILE_PROC(scm_display_backtrace, "display-backtrace", 2, 2, 0,
SCM_VCELL (scm_has_shown_backtrace_hint_p_var, "has-shown-backtrace-hint?");
GUILE_PROC(scm_backtrace, "backtrace", 0, 0, 0,
SCM_DEFINE(scm_backtrace, "backtrace", 0, 0, 0,
(),
"")
#define FUNC_NAME s_scm_backtrace