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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-28 03:25:12 -0700 (Wed, 28 Sep 2005)
New Revision: 1644

Modified:
   branches/r5rs/sigscheme/eval.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (SCM_INTERACTION_ENV): New macro
* sigscheme/eval.c
  - (ScmOp_scheme_report_environment, ScmOp_null_environment,
    ScmOp_interaction_environment): Replace SCM_NULL with
    SCM_INTERACTION_ENV


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-28 10:20:48 UTC (rev 1643)
+++ branches/r5rs/sigscheme/eval.c	2005-09-28 10:25:12 UTC (rev 1644)
@@ -1453,7 +1453,7 @@
 
     CDBG((SCM_DBG_DEVEL, "scheme-report-environment : warning: the environment is not conformed to R5RS"));
 
-    return SCM_NULL;
+    return SCM_INTERACTION_ENV;
 }
 
 ScmObj ScmOp_null_environment(ScmObj version)
@@ -1466,10 +1466,10 @@
 
     CDBG((SCM_DBG_DEVEL, "null-environment : warning: the environment is not conformed to R5RS"));
 
-    return SCM_NULL;
+    return SCM_INTERACTION_ENV;
 }
 
 ScmObj ScmOp_interaction_environment(void)
 {
-    return SCM_NULL;
+    return SCM_INTERACTION_ENV;
 }

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-09-28 10:20:48 UTC (rev 1643)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-09-28 10:25:12 UTC (rev 1644)
@@ -54,6 +54,8 @@
 /*=======================================
    Macro Declarations
 =======================================*/
+#define SCM_INTERACTION_ENV SCM_NULL
+
 #ifdef __GNUC__
 #define SCM_NOINLINE __attribute__((noinline))
 #else