[uim-commit] r1419 - branches/r5rs/sigscheme
yamaken at freedesktop.org
yamaken at freedesktop.org
Sun Sep 4 20:53:11 PDT 2005
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);
More information about the uim-commit
mailing list