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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-05 18:07:06 -0700 (Wed, 05 Oct 2005)
New Revision: 1815

Modified:
   branches/r5rs/sigscheme/sigschemetype.h
Log:
* sigscheme/sigschemetype.h
  - (SCM_VALUEPACKET_VALUES): Eliminate a cons cell consumption


Modified: branches/r5rs/sigscheme/sigschemetype.h
===================================================================
--- branches/r5rs/sigscheme/sigschemetype.h	2005-10-06 00:48:13 UTC (rev 1814)
+++ branches/r5rs/sigscheme/sigschemetype.h	2005-10-06 01:07:06 UTC (rev 1815)
@@ -378,8 +378,7 @@
 #define SCM_NULLVALUESP(a)        (EQ(a, SigScm_null_values))
 #define SCM_ENTYPE_VALUEPACKET(a) (SCM_ENTYPE((a), ScmValuePacket))
 #define SCM_VALUEPACKET_VALUES(a) ((SCM_NULLVALUESP(a)) ? SCM_NULL :         \
-                                   (SCM_CONS(SCM_VALUECONS_CAR(a),           \
-                                             SCM_VALUECONS_CDR(a))))
+                                   (SCM_ENTYPE_CONS(a), (a)))
 #define SCM_VALUECONS_CAR(a)      (SCM_AS_VALUEPACKET(a)->obj.cons.car)
 #define SCM_VALUECONS_CDR(a)      (SCM_AS_VALUEPACKET(a)->obj.cons.cdr)
 #else /* SCM_USE_VALUECONS */