[uim-commit] r2060 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-07 05:59:27 -0800 (Mon, 07 Nov 2005)
New Revision: 2060

Modified:
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* SCM_OBJ_COMPACT

* sigscheme/sigschemeinternal.h
  - (SCM_FREECELL_SET_CAR): fix misuse of SCM_CONS_SET_CAR
  - (SCM_FREECELL_SET_CDR): fix misuse of SCM_CONS_SET_CDR


Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2005-11-07 13:47:07 UTC (rev 2059)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2005-11-07 13:59:27 UTC (rev 2060)
@@ -103,8 +103,8 @@
 #define SCM_FREECELL_CAR(a)         (SCM_CAR(a))
 #define SCM_FREECELL_CDR(a)         (SCM_CDR(a))
 #define SCM_ENTYPE_FREECELL(a)      (SCM_ENTYPE_CONS(a))
-#define SCM_FREECELL_SET_CAR(a,car) (SCM_CONS_SET_CAR(a))
-#define SCM_FREECELL_SET_CDR(a,cdr) (SCM_CONS_SET_CDR(a))
+#define SCM_FREECELL_SET_CAR(a,car) (SCM_CONS_SET_CAR(a, car))
+#define SCM_FREECELL_SET_CDR(a,cdr) (SCM_CONS_SET_CDR(a, cdr))
 #else
 #define SCM_FREECELLP(a)            (SCM_TYPE(a) == ScmFreeCell)
 #define SCM_AS_FREECELL(a)          (SCM_ASSERT_TYPE(SCM_FREECELLP(a), (a)))