summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r--libguile/stacks.c34
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