diff options
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r-- | libguile/stacks.c | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c index 95f1d3c5a..b059fbd49 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -408,7 +408,7 @@ narrow_stack (SCM stack,int inner,SCM inner_key,int outer,SCM outer_key) SCM scm_stack_type; -GUILE_PROC (scm_stack_p, "stack?", 1, 0, 0, +SCM_DEFINE (scm_stack_p, "stack?", 1, 0, 0, (SCM obj), "Return @code{#t} if @var{obj} is a calling stack.") #define FUNC_NAME s_scm_stack_p @@ -417,7 +417,7 @@ GUILE_PROC (scm_stack_p, "stack?", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC (scm_make_stack, "make-stack", 0, 0, 1, +SCM_DEFINE (scm_make_stack, "make-stack", 0, 0, 1, (SCM args), "") #define FUNC_NAME s_scm_make_stack @@ -510,7 +510,7 @@ GUILE_PROC (scm_make_stack, "make-stack", 0, 0, 1, } #undef FUNC_NAME -GUILE_PROC (scm_stack_id, "stack-id", 1, 0, 0, +SCM_DEFINE (scm_stack_id, "stack-id", 1, 0, 0, (SCM stack), "Return the identifier given to @var{stack} by @code{start-stack}.") #define FUNC_NAME s_scm_stack_id @@ -546,7 +546,7 @@ GUILE_PROC (scm_stack_id, "stack-id", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC (scm_stack_ref, "stack-ref", 2, 0, 0, +SCM_DEFINE (scm_stack_ref, "stack-ref", 2, 0, 0, (SCM stack, SCM i), "") #define FUNC_NAME s_scm_stack_ref @@ -560,7 +560,7 @@ GUILE_PROC (scm_stack_ref, "stack-ref", 2, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_stack_length, "stack-length", 1, 0, 0, +SCM_DEFINE(scm_stack_length, "stack-length", 1, 0, 0, (SCM stack), "") #define FUNC_NAME s_scm_stack_length @@ -573,7 +573,7 @@ GUILE_PROC(scm_stack_length, "stack-length", 1, 0, 0, /* Frames */ -GUILE_PROC (scm_frame_p, "frame?", 1, 0, 0, +SCM_DEFINE (scm_frame_p, "frame?", 1, 0, 0, (SCM obj), "") #define FUNC_NAME s_scm_frame_p @@ -582,7 +582,7 @@ GUILE_PROC (scm_frame_p, "frame?", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_last_stack_frame, "last-stack-frame", 1, 0, 0, +SCM_DEFINE(scm_last_stack_frame, "last-stack-frame", 1, 0, 0, (SCM obj), "") #define FUNC_NAME s_scm_last_stack_frame @@ -623,7 +623,7 @@ GUILE_PROC(scm_last_stack_frame, "last-stack-frame", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_number, "frame-number", 1, 0, 0, +SCM_DEFINE(scm_frame_number, "frame-number", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_number @@ -633,7 +633,7 @@ GUILE_PROC(scm_frame_number, "frame-number", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_source, "frame-source", 1, 0, 0, +SCM_DEFINE(scm_frame_source, "frame-source", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_source @@ -643,7 +643,7 @@ GUILE_PROC(scm_frame_source, "frame-source", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_procedure, "frame-procedure", 1, 0, 0, +SCM_DEFINE(scm_frame_procedure, "frame-procedure", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_procedure @@ -655,7 +655,7 @@ GUILE_PROC(scm_frame_procedure, "frame-procedure", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_arguments, "frame-arguments", 1, 0, 0, +SCM_DEFINE(scm_frame_arguments, "frame-arguments", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_arguments @@ -665,7 +665,7 @@ GUILE_PROC(scm_frame_arguments, "frame-arguments", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_previous, "frame-previous", 1, 0, 0, +SCM_DEFINE(scm_frame_previous, "frame-previous", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_previous @@ -680,7 +680,7 @@ GUILE_PROC(scm_frame_previous, "frame-previous", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_next, "frame-next", 1, 0, 0, +SCM_DEFINE(scm_frame_next, "frame-next", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_next @@ -695,7 +695,7 @@ GUILE_PROC(scm_frame_next, "frame-next", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_real_p, "frame-real?", 1, 0, 0, +SCM_DEFINE(scm_frame_real_p, "frame-real?", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_real_p @@ -705,7 +705,7 @@ GUILE_PROC(scm_frame_real_p, "frame-real?", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_procedure_p, "frame-procedure?", 1, 0, 0, +SCM_DEFINE(scm_frame_procedure_p, "frame-procedure?", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_procedure_p @@ -715,7 +715,7 @@ GUILE_PROC(scm_frame_procedure_p, "frame-procedure?", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_evaluating_args_p, "frame-evaluating-args?", 1, 0, 0, +SCM_DEFINE(scm_frame_evaluating_args_p, "frame-evaluating-args?", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_evaluating_args_p @@ -725,7 +725,7 @@ GUILE_PROC(scm_frame_evaluating_args_p, "frame-evaluating-args?", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_frame_overflow_p, "frame-overflow?", 1, 0, 0, +SCM_DEFINE(scm_frame_overflow_p, "frame-overflow?", 1, 0, 0, (SCM frame), "") #define FUNC_NAME s_scm_frame_overflow_p |