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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-09-27 22:20:17 -0700 (Tue, 27 Sep 2005)
New Revision: 1632

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmOp_scheme_report_environment,
     ScmOp_null_environment): check version


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-28 05:11:14 UTC (rev 1631)
+++ branches/r5rs/sigscheme/eval.c	2005-09-28 05:20:17 UTC (rev 1632)
@@ -1483,13 +1483,23 @@
 =======================================*/
 ScmObj ScmOp_scheme_report_environment(ScmObj version)
 {
-    /* FIXME: check arg, warn incompatibility */
+    /* sanity check */
+    if (!INTP(version))
+        SigScm_ErrorObj("scheme-report-environment : int required but got ", version);
+    if (SCM_INT_VALUE(version) != 5)
+        SigScm_ErrorObj("scheme-report-environment : version must be 5 but got ", version);
+
     return SCM_NULL;
 }
 
 ScmObj ScmOp_null_environment(ScmObj version)
 {
-    /* FIXME: check arg, warn incompatibility */
+    /* sanity check */
+    if (!INTP(version))
+        SigScm_ErrorObj("null-environment : int required but got ", version);
+    if (SCM_INT_VALUE(version) != 5)
+        SigScm_ErrorObj("null-environment : version must be 5 but got ", version);
+
     return SCM_NULL;
 }