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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-28 07:32:07 -0700 (Wed, 28 Sep 2005)
New Revision: 1662

Modified:
   branches/r5rs/sigscheme/datas.c
   branches/r5rs/sigscheme/io.c
   branches/r5rs/sigscheme/main.c
Log:
* sigscheme/io.c
  - (SigScm_load_internal): Replace SCM_NULL for EVAL with
    SCM_INTERACTION_ENV
* sigscheme/datas.c
  - (Scm_eval_c_string_internal): Ditto
* sigscheme/main.c
  - (repl): Ditto


Modified: branches/r5rs/sigscheme/datas.c
===================================================================
--- branches/r5rs/sigscheme/datas.c	2005-09-28 14:14:50 UTC (rev 1661)
+++ branches/r5rs/sigscheme/datas.c	2005-09-28 14:32:07 UTC (rev 1662)
@@ -905,7 +905,7 @@
     str_port = Scm_NewStringPort(exp);
 
     ret = SigScm_Read(str_port);
-    ret = EVAL(ret, SCM_NULL);
+    ret = EVAL(ret, SCM_INTERACTION_ENV);
 
 #if SCM_COMPAT_SIOD
     scm_return_value = ret;

Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-09-28 14:14:50 UTC (rev 1661)
+++ branches/r5rs/sigscheme/io.c	2005-09-28 14:32:07 UTC (rev 1662)
@@ -450,7 +450,7 @@
     
     /* read & eval cycle */
     while (s_expression = SigScm_Read(port), !EOFP(s_expression)) {
-        EVAL(s_expression, SCM_NULL);
+        EVAL(s_expression, SCM_INTERACTION_ENV);
     }
 
     ScmOp_close_input_port(port);

Modified: branches/r5rs/sigscheme/main.c
===================================================================
--- branches/r5rs/sigscheme/main.c	2005-09-28 14:14:50 UTC (rev 1661)
+++ branches/r5rs/sigscheme/main.c	2005-09-28 14:32:07 UTC (rev 1662)
@@ -91,7 +91,7 @@
          !EOFP(s_exp);
          s_exp = SigScm_Read(stdin_port))
     {
-        result = EVAL(s_exp, SCM_NULL);
+        result = EVAL(s_exp, SCM_INTERACTION_ENV);
 #if SCM_COMPAT_SIOD
         if (SigScm_GetVerboseLevel() >= 1)
 #endif