[uim commit] r1205 - branches/r5rs/sigscheme

[codesite-noreply]

Author: kzk
Date: Mon Aug 15 12:12:58 2005
New Revision: 1205

Modified:
   branches/r5rs/sigscheme/operations.c
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigscheme.h

Log:
* sigscheme/sigscheme.c
* sigscheme/sigscheme.h
* sigscheme/operations.c
  - (ScmOp_list_ref): renamed from ScmOp_listref
  - (ScmOp_list_tail): renamed from ScmOp_listtail


Modified: branches/r5rs/sigscheme/operations.c
==============================================================================
--- branches/r5rs/sigscheme/operations.c        (original)
+++ branches/r5rs/sigscheme/operations.c        Mon Aug 15 12:12:58 2005
@@ -1066,7 +1066,7 @@
     return ScmOp_listtail_internal(SCM_CDR(obj), k - 1);
 }
 
-ScmObj ScmOp_listtail(ScmObj list, ScmObj scm_k)
+ScmObj ScmOp_list_tail(ScmObj list, ScmObj scm_k)
 {
     if (EQ(ScmOp_listp(list), SCM_FALSE))
         SigScm_ErrorObj("list-tail : list required but got ", list);
@@ -1076,7 +1076,7 @@
     return ScmOp_listtail_internal(list, SCM_INT_VALUE(scm_k));
 }
 
-ScmObj ScmOp_listref(ScmObj list, ScmObj scm_k)
+ScmObj ScmOp_list_ref(ScmObj list, ScmObj scm_k)
 {
     ScmObj list_tail = SCM_NIL;
 

Modified: branches/r5rs/sigscheme/sigscheme.c
==============================================================================
--- branches/r5rs/sigscheme/sigscheme.c (original)
+++ branches/r5rs/sigscheme/sigscheme.c Mon Aug 15 12:12:58 2005
@@ -199,8 +199,8 @@
     Scm_RegisterFunc1("length"               , ScmOp_length);
     Scm_RegisterFuncL("append"               , ScmOp_append);
     Scm_RegisterFunc1("reverse"              , ScmOp_reverse);
-    Scm_RegisterFunc2("list-tail"            , ScmOp_listtail);
-    Scm_RegisterFunc2("list-ref"             , ScmOp_listref);
+    Scm_RegisterFunc2("list-tail"            , ScmOp_list_tail);
+    Scm_RegisterFunc2("list-ref"             , ScmOp_list_ref);
     Scm_RegisterFunc2("memq"                 , ScmOp_memq);
     Scm_RegisterFunc2("memv"                 , ScmOp_memv);
     Scm_RegisterFunc2("member"               , ScmOp_member);

Modified: branches/r5rs/sigscheme/sigscheme.h
==============================================================================
--- branches/r5rs/sigscheme/sigscheme.h (original)
+++ branches/r5rs/sigscheme/sigscheme.h Mon Aug 15 12:12:58 2005
@@ -234,8 +234,8 @@
 ScmObj ScmOp_length(ScmObj obj);
 ScmObj ScmOp_append(ScmObj start, ScmObj item);
 ScmObj ScmOp_reverse(ScmObj obj);
-ScmObj ScmOp_listtail(ScmObj list, ScmObj k);
-ScmObj ScmOp_listref(ScmObj list, ScmObj k);
+ScmObj ScmOp_list_tail(ScmObj list, ScmObj k);
+ScmObj ScmOp_list_ref(ScmObj list, ScmObj k);
 ScmObj ScmOp_memq(ScmObj obj, ScmObj list);
 ScmObj ScmOp_memv(ScmObj obj, ScmObj list);
 ScmObj ScmOp_member(ScmObj obj, ScmObj list);