guile/guile-core/libguile macros.c

[Marius Vollmer]

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