mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

* macros.c (scm_macro_name, scm_macro_transformer): Use

Browse source 
SCM_SMOB_DATA instead of SCM_CDR.  Provided by Martin Grabmueller.
Thanks!
This commit is contained in:
Marius Vollmer 2001-02-09 14:37:30 +00:00
parent a6dfbbbbce
commit 88c927e950
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/macros.c
View file

@ -148,22 +148,23 @@ SCM_DEFINE (scm_macro_type, "macro-type", 1, 0, 0,
SCM_DEFINE (scm_macro_name, "macro-name", 1, 0, 0, SCM_DEFINE (scm_macro_name, "macro-name", 1, 0, 0,
(SCM m), (SCM m),
"") "Return the name of the macro @var{m}.")
#define FUNC_NAME s_scm_macro_name #define FUNC_NAME s_scm_macro_name
{ {
SCM_VALIDATE_SMOB (1,m,macro); SCM_VALIDATE_SMOB (1,m,macro);
return scm_procedure_name (SCM_CDR (m)); return scm_procedure_name (SCM_PACK (SCM_SMOB_DATA (m)));
} }
#undef FUNC_NAME #undef FUNC_NAME
SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0, SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0,
(SCM m), (SCM m),
"") "Return the transformer of the macro @var{m}.")
#define FUNC_NAME s_scm_macro_transformer #define FUNC_NAME s_scm_macro_transformer
{ {
SCM_VALIDATE_SMOB (1,m,macro); SCM_VALIDATE_SMOB (1,m,macro);
return SCM_CLOSUREP (SCM_CDR (m)) ? SCM_CDR (m) : SCM_BOOL_F; return ((SCM_CLOSUREP (SCM_PACK (SCM_SMOB_DATA (m)))) ?
SCM_PACK(SCM_SMOB_DATA (m)) : SCM_BOOL_F);
} }
#undef FUNC_NAME #undef FUNC_NAME