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

34
libguile/stacks.c
View file

@ -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