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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-30 07:24:45 -0700 (Fri, 30 Sep 2005)
New Revision: 1697

Modified:
   branches/r5rs/sigscheme/operations-srfi1.c
Log:
* sigscheme/operations-srfi1.c
  - (ScmOp_SRFI1_carpluscdr, ScmOp_SRFI1_split_at,
    ScmOp_SRFI1_split_at_d): Replace Scm_NewValuePacket() with
    ScmOp_values() to make multiple values handling abstract


Modified: branches/r5rs/sigscheme/operations-srfi1.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi1.c	2005-09-30 14:15:38 UTC (rev 1696)
+++ branches/r5rs/sigscheme/operations-srfi1.c	2005-09-30 14:24:45 UTC (rev 1697)
@@ -394,7 +394,7 @@
 
 ScmObj ScmOp_SRFI1_carpluscdr(ScmObj lst)
 {
-    return Scm_NewValuePacket(LIST_2(CAR(lst), CDR(lst)));
+    return ScmOp_values(LIST_2(CAR(lst), CDR(lst)));
 }
 
 ScmObj ScmOp_SRFI1_take(ScmObj lst, ScmObj scm_idx)
@@ -531,16 +531,16 @@
 
 ScmObj ScmOp_SRFI1_split_at(ScmObj lst, ScmObj idx)
 {
-    return Scm_NewValuePacket(LIST_2(ScmOp_SRFI1_take(lst, idx),
-                                     ScmOp_SRFI1_drop(lst, idx)));
+    return ScmOp_values(LIST_2(ScmOp_SRFI1_take(lst, idx),
+                               ScmOp_SRFI1_drop(lst, idx)));
 }
 
 ScmObj ScmOp_SRFI1_split_at_d(ScmObj lst, ScmObj idx)
 {
     ScmObj drop = ScmOp_SRFI1_drop(lst, idx);
 
-    return Scm_NewValuePacket(LIST_2(ScmOp_SRFI1_take_d(lst, idx),
-                                     drop));
+    return ScmOp_values(LIST_2(ScmOp_SRFI1_take_d(lst, idx),
+                               drop));
 }
 
 ScmObj ScmOp_SRFI1_last(ScmObj lst)