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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-03 08:21:30 -0800 (Tue, 03 Jan 2006)
New Revision: 2765

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (scm_p_scheme_report_environment): Replace SCM_INTERACTION_ENV
    with SCM_R5RS_ENV
  - (scm_p_null_environment): Replace SCM_INTERACTION_ENV with
    SCM_NULL_ENV


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2006-01-03 15:07:45 UTC (rev 2764)
+++ branches/r5rs/sigscheme/eval.c	2006-01-03 16:21:30 UTC (rev 2765)
@@ -430,7 +430,6 @@
 {
     DECLARE_FUNCTION("scheme-report-environment", procedure_fixed_1);
 
-    /* sanity check */
     ENSURE_INT(version);
     if (SCM_INT_VALUE(version) != 5)
         ERR_OBJ("version must be 5 but got", version);
@@ -442,7 +441,7 @@
           "scheme-report-environment: warning:" SCM_ERRMSG_NON_R5RS_ENV));
 #endif
 
-    return SCM_INTERACTION_ENV;
+    return SCM_R5RS_ENV;
 }
 
 ScmObj
@@ -450,7 +449,6 @@
 {
     DECLARE_FUNCTION("null-environment", procedure_fixed_1);
 
-    /* sanity check */
     ENSURE_INT(version);
     if (SCM_INT_VALUE(version) != 5)
         ERR_OBJ("version must be 5 but got", version);
@@ -462,7 +460,7 @@
           "null-environment: warning:" SCM_ERRMSG_NON_R5RS_ENV));
 #endif
 
-    return SCM_INTERACTION_ENV;
+    return SCM_NULL_ENV;
 }
 
 ScmObj