mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +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

6
libguile/keywords.c
View file

@ -68,7 +68,7 @@ int scm_tc16_keyword;
int scm_tc16_kw;
GUILE_PROC (scm_make_keyword_from_dash_symbol, "make-keyword-from-dash-symbol", 1, 0, 0,
SCM_DEFINE (scm_make_keyword_from_dash_symbol, "make-keyword-from-dash-symbol", 1, 0, 0,
(SCM symbol),
"")
#define FUNC_NAME s_scm_make_keyword_from_dash_symbol
@ -106,7 +106,7 @@ scm_c_make_keyword (char *s)
return scm_make_keyword_from_dash_symbol (SCM_CAR (vcell));
}
GUILE_PROC(scm_keyword_p, "keyword?", 1, 0, 0,
SCM_DEFINE(scm_keyword_p, "keyword?", 1, 0, 0,
(SCM obj),
"@code{keyword?} returns @code{#t} if the argument @var{kw} is a keyword;
it returns @code{#f} otherwise.")
@ -117,7 +117,7 @@ it returns @code{#f} otherwise.")
#undef FUNC_NAME
GUILE_PROC(scm_keyword_dash_symbol, "keyword-dash-symbol", 1, 0, 0,
SCM_DEFINE(scm_keyword_dash_symbol, "keyword-dash-symbol", 1, 0, 0,
(SCM keyword),
"@code{keyword-dash-symbol} [FIXME: have no idea what this does; it is
not commented.]")