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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-04 20:53:09 -0700 (Sun, 04 Sep 2005)
New Revision: 1419

Modified:
   branches/r5rs/sigscheme/sigscheme.c
Log:
* sigscheme/sigscheme.c
  - (SigScm_Initialize): Replace integer? registration with
    SCM_DEFINE_ALIAS(). This makes (eq? integer? number?) true
  - Add a comment about #t and #f registration as symbol


Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-09-05 03:10:36 UTC (rev 1418)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-09-05 03:53:09 UTC (rev 1419)
@@ -113,8 +113,11 @@
     /*=======================================================================
       Export Scheme Special Symbols
     =======================================================================*/
+#if 0
+    /* really required? */
     SCM_SYMBOL_VCELL(Scm_Intern("#t"))   = SCM_TRUE;
     SCM_SYMBOL_VCELL(Scm_Intern("#f"))   = SCM_FALSE;
+#endif
     SCM_SYMBOL_VCELL(Scm_Intern("else")) = SCM_TRUE;
     SCM_SYMBOL_VCELL(Scm_Intern("=>"))   = SCM_TRUE;
     /*=======================================================================
@@ -149,7 +152,7 @@
     Scm_RegisterFunc2("eq?"                      , ScmOp_eqp);
     Scm_RegisterFunc2("equal?"                   , ScmOp_equalp);
     Scm_RegisterFunc1("number?"                  , ScmOp_numberp);
-    Scm_RegisterFunc1("integer?"                 , ScmOp_numberp);
+    SCM_DEFINE_ALIAS("integer?"                  , "number?");
     Scm_RegisterFuncEvaledList("="               , ScmOp_equal);
     Scm_RegisterFuncEvaledList("<"               , ScmOp_less);
     Scm_RegisterFuncEvaledList(">"               , ScmOp_greater);