mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:40:29 +02:00
Code Activity

* backtrace.c: Fix spelling typo in a comment.

Browse source 
* snarf.h: Use new SCM_DOCS macro to encapsulate the non SCM_INIT
text.  Reformatted some of the expansions.
This commit is contained in:
Greg J. Badros 2000-01-09 01:07:17 +00:00
parent 2de257bd05
commit 2fdcf8bdf0
2 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/backtrace.c
View file

@ -232,7 +232,7 @@ struct display_error_handler_data {
Note that it is very important that this handler *doesn't* try to Note that it is very important that this handler *doesn't* try to
print more than the error tag, since the error very probably is print more than the error tag, since the error very probably is
caused by an erroneous print call-back routine. If we would caused by an erroneous print call-back routine. If we would
tru to print all objects, we would enter an infinite loop. */ try to print all objects, we would enter an infinite loop. */
static SCM static SCM
display_error_handler (struct display_error_handler_data *data, display_error_handler (struct display_error_handler_data *data,
SCM tag, SCM args) SCM tag, SCM args)

20
libguile/snarf.h
View file

@ -73,9 +73,11 @@
#ifndef SCM_MAGIC_SNARFER #ifndef SCM_MAGIC_SNARFER
# define SCM_HERE(X) X # define SCM_HERE(X) X
# define SCM_INIT(X) # define SCM_INIT(X)
# define SCM_DOCS(X)
#else #else
# define SCM_HERE(X) # define SCM_HERE(X)
# define SCM_INIT(X) %%% X # define SCM_INIT(X) %%% X
# define SCM_DOCS(X) X
#endif #endif
#define SCM_DEFINE(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ #define SCM_DEFINE(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \
@ -85,6 +87,8 @@ SCM FNAME ARGLIST\
)\ )\
SCM_INIT(\ SCM_INIT(\
scm_make_gsubr (s_ ## FNAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) FNAME); \ scm_make_gsubr (s_ ## FNAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) FNAME); \
)\
SCM_DOCS(\
$$$P PRIMNAME #ARGLIST | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ DOCSTRING @!!! \ $$$P PRIMNAME #ARGLIST | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ DOCSTRING @!!! \
) )
@ -92,22 +96,20 @@ $$$P PRIMNAME #ARGLIST | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ DOCSTRING @!!
SCM_HERE(\ SCM_HERE(\
static const char s_ ## FNAME [] = PRIMNAME; \ static const char s_ ## FNAME [] = PRIMNAME; \
SCM FNAME ARGLIST\ SCM FNAME ARGLIST\
)SCM_INIT(\ )\
scm_make_subr (s_ ## FNAME, TYPE, FNAME); \ SCM_INIT(scm_make_subr (s_ ## FNAME, TYPE, FNAME); ) \
SCM_DOCS(\
$$$1 PRIMNAME #ARGLIST | 2 | 0 | 0 | __FILE__:__LINE__ | @@@ DOCSTRING @!!! \ $$$1 PRIMNAME #ARGLIST | 2 | 0 | 0 | __FILE__:__LINE__ | @@@ DOCSTRING @!!! \
) )
#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \
SCM_HERE(static const char RANAME[]=STR) \ SCM_HERE(static const char RANAME[]=STR) \
SCM_INIT(\ SCM_INIT(scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN))
scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN) \
)
#define SCM_REGISTER_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ #define SCM_REGISTER_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \
SCM_HERE(\ SCM_HERE(static const char RANAME[]=STR) \
static const char RANAME[]=STR \ SCM_INIT(scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN);) \
)SCM_INIT(\ SCM_DOCS(\
scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN); \
$$$R STR | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ CFN @!!! \ $$$R STR | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ CFN @!!! \
) )