[uim-commit] r1631 - in branches/r5rs/sigscheme: . test

[kzk at freedesktop.org]

Author: kzk
Date: 2005-09-27 22:11:14 -0700 (Tue, 27 Sep 2005)
New Revision: 1631

Modified:
   branches/r5rs/sigscheme/TODO
   branches/r5rs/sigscheme/eval.c
   branches/r5rs/sigscheme/test/test-r4rs.scm
Log:
* sigscheme/eval.c
  - (ScmExp_or): fix bug introduced in r1629... 
* sigscheme/test/test-r4rs.scm
  - remove #Space test cate
* sigscheme/TODO
  - update


Modified: branches/r5rs/sigscheme/TODO
===================================================================
--- branches/r5rs/sigscheme/TODO	2005-09-28 04:52:32 UTC (rev 1630)
+++ branches/r5rs/sigscheme/TODO	2005-09-28 05:11:14 UTC (rev 1631)
@@ -33,8 +33,6 @@
 ==============================================================================
 Extensions:
 
-* Fix the SRFI-2 issues
-
 ==============================================================================
 Performance improvements:
 
@@ -55,8 +53,6 @@
 
 * Reorganize SCM_SHIFT*() macros and simplify args extraction codes
 
-* Automatically append "\n" in SigScm_Error() instead of append by caller
-
 * Move procedure registration for SRFI and SIOD operations in
   SigScm_Initialize_internal() to each operation-*.c and invoke them by
   SigScm_*_Initialize() from SigScm_Initialize_internal(). It should be done

Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-28 04:52:32 UTC (rev 1630)
+++ branches/r5rs/sigscheme/eval.c	2005-09-28 05:11:14 UTC (rev 1631)
@@ -1021,13 +1021,13 @@
     ScmObj obj = SCM_FALSE;
 
     if (NULLP(lst))
-        return SCM_TRUE;
+        return SCM_FALSE;
     
     for (; CONSP(CDR(lst)); lst = CDR(lst)) {
         obj = EVAL(CAR(lst), env);
         if (NFALSEP(obj)) {
             eval_state->ret_type = SCM_RETTYPE_AS_IS;
-            return SCM_FALSE;
+            return obj;
         }
     }
 

Modified: branches/r5rs/sigscheme/test/test-r4rs.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-r4rs.scm	2005-09-28 04:52:32 UTC (rev 1630)
+++ branches/r5rs/sigscheme/test/test-r4rs.scm	2005-09-28 05:11:14 UTC (rev 1631)
@@ -797,8 +797,8 @@
 			     (negative? (string->number "-80000000" 16))))
 
 (SECTION 6 6)
-(test #t eqv? '#\  #\Space)
-(test #t eqv? #\space '#\Space)
+;(test #t eqv? '#\  #\Space)
+;(test #t eqv? #\space '#\Space)
 (test #t char? #\a)
 (test #t char? #\()
 (test #t char? #\ )