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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-08-18 05:01:01 -0700 (Thu, 18 Aug 2005)
New Revision: 1218

Modified:
   branches/r5rs/sigscheme/sigscheme.c
Log:
* scm/util.scm
  - (SigScm_Initialize): Add initialization of integer?. We MUST
    distinguish integer? from number? in Scheme codes of uim because
    some other Scheme implementation that has the number system may
    run uim such as uim-scm-gauche.c.

    Please don't rewrite integer? in *.scm with number?


Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-08-18 11:51:37 UTC (rev 1217)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-08-18 12:01:01 UTC (rev 1218)
@@ -142,6 +142,7 @@
     Scm_RegisterFunc2("eq?"                  , ScmOp_eqp);
     Scm_RegisterFunc2("equal?"               , ScmOp_equalp);
     Scm_RegisterFunc1("number?"              , ScmOp_numberp);
+    Scm_RegisterFunc1("integer?"             , ScmOp_numberp);
     Scm_RegisterFuncL("="                    , ScmOp_equal);
     Scm_RegisterFuncL("<"                    , ScmOp_bigger);
     Scm_RegisterFuncL(">"                    , ScmOp_smaller);