mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-08 22:50:27 +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
print more than the error tag, since the error very probably is
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
display_error_handler (struct display_error_handler_data *data,
SCM tag, SCM args)

20
libguile/snarf.h
View file

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