mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +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

8
libguile/lang.c
View file

@ -63,7 +63,7 @@
* in all data structures.
*/
GUILE_PROC (scm_nil_cons, "nil-cons", 2, 0, 0,
SCM_DEFINE (scm_nil_cons, "nil-cons", 2, 0, 0,
(SCM x, SCM y),
"")
#define FUNC_NAME s_scm_nil_cons
@ -77,7 +77,7 @@ GUILE_PROC (scm_nil_cons, "nil-cons", 2, 0, 0,
#undef FUNC_NAME
GUILE_PROC (scm_nil_car, "nil-car", 1, 0, 0,
SCM_DEFINE (scm_nil_car, "nil-car", 1, 0, 0,
(SCM x),
"")
#define FUNC_NAME s_scm_nil_car
@ -89,7 +89,7 @@ GUILE_PROC (scm_nil_car, "nil-car", 1, 0, 0,
}
#undef FUNC_NAME
GUILE_PROC (scm_nil_cdr, "nil-cdr", 1, 0, 0,
SCM_DEFINE (scm_nil_cdr, "nil-cdr", 1, 0, 0,
(SCM x),
"")
#define FUNC_NAME s_scm_nil_cdr
@ -103,7 +103,7 @@ GUILE_PROC (scm_nil_cdr, "nil-cdr", 1, 0, 0,
/* GJB:FIXME:: why does this return scm_nil instead of SCM_BOOL_F?
Could use SCM_BOOL, below, otherwise */
GUILE_PROC (scm_null, "null", 1, 0, 0,
SCM_DEFINE (scm_null, "null", 1, 0, 0,
(SCM x),
"")
#define FUNC_NAME s_scm_null