[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile macros.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile macros.c |
Date: |
Fri, 09 Feb 2001 06:37:30 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/02/09 06:37:30
Modified files:
guile-core/libguile: macros.c
Log message:
* macros.c (scm_macro_name, scm_macro_transformer): Use
SCM_SMOB_DATA instead of SCM_CDR. Provided by Martin Grabmueller.
Thanks!
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/macros.c.diff?r1=1.24&r2=1.25
Patches:
Index: guile/guile-core/libguile/macros.c
diff -u guile/guile-core/libguile/macros.c:1.24
guile/guile-core/libguile/macros.c:1.25
--- guile/guile-core/libguile/macros.c:1.24 Fri Dec 8 09:32:56 2000
+++ guile/guile-core/libguile/macros.c Fri Feb 9 06:37:30 2001
@@ -148,22 +148,23 @@
SCM_DEFINE (scm_macro_name, "macro-name", 1, 0, 0,
(SCM m),
- "")
+ "Return the name of the macro @var{m}.")
#define FUNC_NAME s_scm_macro_name
{
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
SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0,
(SCM m),
- "")
+ "Return the transformer of the macro @var{m}.")
#define FUNC_NAME s_scm_macro_transformer
{
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile macros.c,
Marius Vollmer <=