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

16
libguile/procs.c
View file

@ -164,7 +164,7 @@ scm_makcclo (SCM proc, long len)
/* Undocumented debugging procedure */
#ifdef GUILE_DEBUG
GUILE_PROC (scm_make_cclo, "make-cclo", 2, 0, 0,
SCM_DEFINE (scm_make_cclo, "make-cclo", 2, 0, 0,
(SCM proc, SCM len),
"")
#define FUNC_NAME s_scm_make_cclo
@ -177,7 +177,7 @@ GUILE_PROC (scm_make_cclo, "make-cclo", 2, 0, 0,
GUILE_PROC(scm_procedure_p, "procedure?", 1, 0, 0,
SCM_DEFINE(scm_procedure_p, "procedure?", 1, 0, 0,
(SCM obj),
"")
#define FUNC_NAME s_scm_procedure_p
@ -203,7 +203,7 @@ GUILE_PROC(scm_procedure_p, "procedure?", 1, 0, 0,
}
#undef FUNC_NAME
GUILE_PROC(scm_closure_p, "closure?", 1, 0, 0,
SCM_DEFINE(scm_closure_p, "closure?", 1, 0, 0,
(SCM obj),
"")
#define FUNC_NAME s_scm_closure_p
@ -212,7 +212,7 @@ GUILE_PROC(scm_closure_p, "closure?", 1, 0, 0,
}
#undef FUNC_NAME
GUILE_PROC(scm_thunk_p, "thunk?", 1, 0, 0,
SCM_DEFINE(scm_thunk_p, "thunk?", 1, 0, 0,
(SCM obj),
"")
#define FUNC_NAME s_scm_thunk_p
@ -260,7 +260,7 @@ scm_subr_p (SCM obj)
return 0;
}
GUILE_PROC(scm_procedure_documentation, "procedure-documentation", 1, 0, 0,
SCM_DEFINE(scm_procedure_documentation, "procedure-documentation", 1, 0, 0,
(SCM proc),
"Return the documentation string associated with @code{proc}. By
convention, if a procedure contains more than one expression and the
@ -298,7 +298,7 @@ documentation for that procedure.")
/* Procedure-with-setter
*/
GUILE_PROC (scm_procedure_with_setter_p, "procedure-with-setter?", 1, 0, 0,
SCM_DEFINE (scm_procedure_with_setter_p, "procedure-with-setter?", 1, 0, 0,
(SCM obj),
"")
#define FUNC_NAME s_scm_procedure_with_setter_p
@ -307,7 +307,7 @@ GUILE_PROC (scm_procedure_with_setter_p, "procedure-with-setter?", 1, 0, 0,
}
#undef FUNC_NAME
GUILE_PROC (scm_make_procedure_with_setter, "make-procedure-with-setter", 2, 0, 0,
SCM_DEFINE (scm_make_procedure_with_setter, "make-procedure-with-setter", 2, 0, 0,
(SCM procedure, SCM setter),
"")
#define FUNC_NAME s_scm_make_procedure_with_setter
@ -324,7 +324,7 @@ GUILE_PROC (scm_make_procedure_with_setter, "make-procedure-with-setter", 2, 0,
}
#undef FUNC_NAME
GUILE_PROC (scm_procedure, "procedure", 1, 0, 0,
SCM_DEFINE (scm_procedure, "procedure", 1, 0, 0,
(SCM proc),
"")
#define FUNC_NAME s_scm_procedure