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

6
libguile/read.c
View file

@ -74,7 +74,7 @@ scm_option scm_read_opts[] = {
"Style of keyword recognition: #f or 'prefix"}
};
GUILE_PROC (scm_read_options, "read-options-interface", 0, 1, 0,
SCM_DEFINE (scm_read_options, "read-options-interface", 0, 1, 0,
(SCM setting),
"")
#define FUNC_NAME s_scm_read_options
@ -92,7 +92,7 @@ GUILE_PROC (scm_read_options, "read-options-interface", 0, 1, 0,
/* An association list mapping extra hash characters to procedures. */
static SCM *scm_read_hash_procedures;
GUILE_PROC (scm_read, "read", 0, 1, 0,
SCM_DEFINE (scm_read, "read", 0, 1, 0,
(SCM port),
"")
#define FUNC_NAME s_scm_read
@ -701,7 +701,7 @@ exit:
/* Manipulate the read-hash-procedures alist. This could be written in
Scheme, but maybe it will also be used by C code during initialisation. */
GUILE_PROC (scm_read_hash_extend, "read-hash-extend", 2, 0, 0,
SCM_DEFINE (scm_read_hash_extend, "read-hash-extend", 2, 0, 0,
(SCM chr, SCM proc),
"")
#define FUNC_NAME s_scm_read_hash_extend