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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-08 01:53:30 -0800 (Sun, 08 Jan 2006)
New Revision: 2844

Modified:
   branches/r5rs/sigscheme/operations-nonstd.c
Log:
* sigscheme/operations-nonstd.c
  - (scm_p_symbol_boundp):
    * Fix a SEGV from rewriting miss in r2832
    * Fix lacking invalid environment object rejection


Modified: branches/r5rs/sigscheme/operations-nonstd.c
===================================================================
--- branches/r5rs/sigscheme/operations-nonstd.c	2006-01-08 09:35:39 UTC (rev 2843)
+++ branches/r5rs/sigscheme/operations-nonstd.c	2006-01-08 09:53:30 UTC (rev 2844)
@@ -93,9 +93,9 @@
 
     ENSURE_SYMBOL(sym);
 
-    if (CONSP(env)) {
+    if (CONSP(rest)) {
         env = POP(rest);
-        ENSURE_ENV(env);
+        ENSURE_VALID_ENV(env);
     } else {
         env = SCM_INTERACTION_ENV;
     }