*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.

[bpt/guile.git] / libguile / keywords.c

diff --git a/libguile/keywords.c b/libguile/keywords.c
index d76ed57..d151683 100644 (file)
--- a/libguile/keywords.c
+++ b/libguile/keywords.c
@@ -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.]")