Author: yamakenz
Date: Tue Jun 12 16:09:11 2007
New Revision: 4586
Modified:
sigscheme-trunk/configure.in
sigscheme-trunk/test/test-misc.scm
sigscheme-trunk/test/test-number-pred.scm
sigscheme-trunk/test/test-srfi38.scm
sigscheme-trunk/test/test-string-core.scm
Log:
* configure.in
- Make utf8_as_default unneeded for r6rs_chars
- use_r6rs_named_chars=yes for --enable-conf=uim
* test/test-misc.scm
* test/test-number-pred.scm
* test/test-string-core.scm
- Add "-C UTF-8" option for non-UTF-8-default codecs
* test/test-srfi38.scm
- (cadddr): New procedure for (not (provided? "deep-cadrs"))
Modified: sigscheme-trunk/configure.in
==============================================================================
--- sigscheme-trunk/configure.in (original)
+++ sigscheme-trunk/configure.in Tue Jun 12 16:09:11 2007
@@ -541,15 +541,10 @@
# R6RS features
case "$enable_conf" in
- full|dev)
+ full|dev|uim)
use_r6rs_named_chars=yes
use_r6rs_chars=yes
;;
- uim)
- use_r6rs_named_chars=yes
- # FIXME: enable without conflicting with singlebyte_as_default
- use_r6rs_chars=no
- ;;
r5rs|small|siod)
use_r6rs_named_chars=no
use_r6rs_chars=no
@@ -709,7 +704,7 @@
srfi38: writer
srfi60: int
r6rs_named_chars: char
-r6rs_chars: char utf8 reader r6rs_named_chars utf8_as_default
+r6rs_chars: char utf8 reader r6rs_named_chars
compat_siod: sscm_extensions srfi60 eval_c_string
compat_siod_bugs: compat_siod
Modified: sigscheme-trunk/test/test-misc.scm
==============================================================================
--- sigscheme-trunk/test/test-misc.scm (original)
+++ sigscheme-trunk/test/test-misc.scm Tue Jun 12 16:09:11 2007
@@ -1,3 +1,5 @@
+#! /usr/bin/env sscm -C UTF-8
+
;; Filename : test-misc.scm
;; About : unit tests for miscellaneous procedures
;;
Modified: sigscheme-trunk/test/test-number-pred.scm
==============================================================================
--- sigscheme-trunk/test/test-number-pred.scm (original)
+++ sigscheme-trunk/test/test-number-pred.scm Tue Jun 12 16:09:11 2007
@@ -1,3 +1,5 @@
+#! /usr/bin/env sscm -C UTF-8
+
;; Filename : test-number-pred.scm
;; About : unit tests for number predicates
;;
Modified: sigscheme-trunk/test/test-srfi38.scm
==============================================================================
--- sigscheme-trunk/test/test-srfi38.scm (original)
+++ sigscheme-trunk/test/test-srfi38.scm Tue Jun 12 16:09:11 2007
@@ -41,6 +41,11 @@
(define tn test-name)
+(if (not (symbol-bound? 'cadddr))
+ (define cadddr
+ (lambda (lst)
+ (caddr (cdr lst)))))
+
(tn "write/ss short-name alias")
(if sigscheme?
(begin
Modified: sigscheme-trunk/test/test-string-core.scm
==============================================================================
--- sigscheme-trunk/test/test-string-core.scm (original)
+++ sigscheme-trunk/test/test-string-core.scm Tue Jun 12 16:09:11 2007
@@ -1,3 +1,5 @@
+#! /usr/bin/env sscm -C UTF-8
+
;; Filename : test-string-core.scm
;; About : unit test for core procedures of R5RS string
;;
