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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-18 02:13:40 -0700 (Sun, 18 Sep 2005)
New Revision: 1513

Modified:
   branches/r5rs/sigscheme/TODO
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/test/test-exp.scm
  - Modify (values) with (write (values)) to produce the SEGV condition
* sigscheme/TODO
  - Follow the above change


Modified: branches/r5rs/sigscheme/TODO
===================================================================
--- branches/r5rs/sigscheme/TODO	2005-09-18 08:59:20 UTC (rev 1512)
+++ branches/r5rs/sigscheme/TODO	2005-09-18 09:13:40 UTC (rev 1513)
@@ -17,7 +17,7 @@
   - [uim] Implement string-escape as same as trunk
 
 * Fix broken 'values' handlings
-  - sscm> (values) => SEGV
+  - (write (values)) => SEGV
   - (number? (values 5 6)) => error
 
 * Make ScmOp_apply() properly tail recursive

Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-09-18 08:59:20 UTC (rev 1512)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-09-18 09:13:40 UTC (rev 1513)
@@ -220,7 +220,7 @@
 (assert-false "values test9" (null?   (values)))
 
 ; not asserted, just make sure we don't blow up
-(values)
+(write (values))
 (begin (values 1 2 3) 'ignore)