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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-08-29 00:22:20 -0700 (Mon, 29 Aug 2005)
New Revision: 1348

Modified:
   branches/r5rs/sigscheme/operations.c
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (ScmOp_lessEq): Rename to ScmOp_less_eq() to be consistent on the
    naming convention. Grand renaming by Kazuki will follow later
  - (ScmOp_less_eq): Renamed from ScmOp_lessEq()
  - (ScmOp_greaterEq): Rename to ScmOp_greater_eq()
  - (ScmOp_greater_eq): Renamed from ScmOp_greaterEq()
* sigscheme/operations.c
  - (ScmOp_lessEq): Rename to ScmOp_less_eq()
  - (ScmOp_less_eq): Renamed from ScmOp_lessEq()
  - (ScmOp_greaterEq): Rename to ScmOp_greater_eq()
  - (ScmOp_greater_eq): Renamed from ScmOp_greaterEq()
* sigscheme/sigscheme.c
  - (SigScm_Initialize): Follow the renamings


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-08-29 05:23:24 UTC (rev 1347)
+++ branches/r5rs/sigscheme/operations.c	2005-08-29 07:22:20 UTC (rev 1348)
@@ -441,7 +441,7 @@
     return SCM_TRUE;
 }
 
-ScmObj ScmOp_lessEq(ScmObj args, ScmObj env )
+ScmObj ScmOp_less_eq(ScmObj args, ScmObj env )
 {
     int    val     = 0;
     int    car_val = 0;
@@ -475,7 +475,7 @@
     return SCM_TRUE;
 }
 
-ScmObj ScmOp_greaterEq(ScmObj args, ScmObj env )
+ScmObj ScmOp_greater_eq(ScmObj args, ScmObj env )
 {
     int    val     = 0;
     int    car_val = 0;

Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-08-29 05:23:24 UTC (rev 1347)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-08-29 07:22:20 UTC (rev 1348)
@@ -152,8 +152,8 @@
     Scm_RegisterFuncEvaledList("="               , ScmOp_equal);
     Scm_RegisterFuncEvaledList("<"               , ScmOp_less);
     Scm_RegisterFuncEvaledList(">"               , ScmOp_greater);
-    Scm_RegisterFuncEvaledList("<="              , ScmOp_lessEq);
-    Scm_RegisterFuncEvaledList(">="              , ScmOp_greaterEq);
+    Scm_RegisterFuncEvaledList("<="              , ScmOp_less_eq);
+    Scm_RegisterFuncEvaledList(">="              , ScmOp_greater_eq);
     Scm_RegisterFunc1("zero?"                    , ScmOp_zerop);
     Scm_RegisterFunc1("positive?"                , ScmOp_positivep);
     Scm_RegisterFunc1("negative?"                , ScmOp_negativep);

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-08-29 05:23:24 UTC (rev 1347)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-08-29 07:22:20 UTC (rev 1348)
@@ -167,8 +167,8 @@
 ScmObj ScmOp_equal(ScmObj args, ScmObj env);
 ScmObj ScmOp_less(ScmObj args, ScmObj env );
 ScmObj ScmOp_greater(ScmObj args, ScmObj env );
-ScmObj ScmOp_lessEq(ScmObj args, ScmObj env );
-ScmObj ScmOp_greaterEq(ScmObj args, ScmObj env );
+ScmObj ScmOp_less_eq(ScmObj args, ScmObj env );
+ScmObj ScmOp_greater_eq(ScmObj args, ScmObj env );
 ScmObj ScmOp_zerop(ScmObj scm_num);
 ScmObj ScmOp_positivep(ScmObj scm_num);
 ScmObj ScmOp_negativep(ScmObj scm_num);