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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-28 03:20:48 -0700 (Wed, 28 Sep 2005)
New Revision: 1643

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmOp_scheme_report_environment, ScmOp_null_environment): Add
    warning message about inconformance with R5RS


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-28 10:04:20 UTC (rev 1642)
+++ branches/r5rs/sigscheme/eval.c	2005-09-28 10:20:48 UTC (rev 1643)
@@ -1451,6 +1451,8 @@
     if (SCM_INT_VALUE(version) != 5)
         SigScm_ErrorObj("scheme-report-environment : version must be 5 but got ", version);
 
+    CDBG((SCM_DBG_DEVEL, "scheme-report-environment : warning: the environment is not conformed to R5RS"));
+
     return SCM_NULL;
 }
 
@@ -1462,6 +1464,8 @@
     if (SCM_INT_VALUE(version) != 5)
         SigScm_ErrorObj("null-environment : version must be 5 but got ", version);
 
+    CDBG((SCM_DBG_DEVEL, "null-environment : warning: the environment is not conformed to R5RS"));
+
     return SCM_NULL;
 }