Author: yamakenz
Date: Fri Jul 20 08:34:05 2007
New Revision: 4761
Modified:
sigscheme-trunk/NEWS
sigscheme-trunk/TODO
sigscheme-trunk/configure.in
sigscheme-trunk/test/test-srfi1-another.scm
Log:
* configure.in
- Disable hygienic macros by default in all configurations but 'dev' since it
has a considerable bug (such as infinite loop on test-srfi1-another.scm)
* test/test-srfi1-another.scm
- Fix invalid comparisons
* NEWS
* TODO
- Update
Modified: sigscheme-trunk/NEWS
==============================================================================
--- sigscheme-trunk/NEWS (original)
+++ sigscheme-trunk/NEWS Fri Jul 20 08:34:05 2007
@@ -48,6 +48,10 @@
- Second argument argv is added to scm_initialize() and thus incompatible
with 0.7.x.
+ - [R5RS] R5RS hygienic macros is disabled by default in all configurations
+ but 'dev' since it has a considerable bug (such as infinite loop on
+ test-srfi1-another.scm)
+
* Fixes
- [CRITICAL] Fix unterminated string generation on singlebyte character codec
Modified: sigscheme-trunk/TODO
==============================================================================
--- sigscheme-trunk/TODO (original)
+++ sigscheme-trunk/TODO Fri Jul 20 08:34:05 2007
@@ -2,6 +2,7 @@
High priority tasks:
* (0.9) Efficient macro
+ - Fix infinite loop on test-srfi1-another.scm
- Introduce compilation phase (see "Macros" subsection of spec.txt)
- Make macro expansion performed on compilation phase
- Make runtime syntax sugars interpretation into macro expansions on
Modified: sigscheme-trunk/configure.in
==============================================================================
--- sigscheme-trunk/configure.in (original)
+++ sigscheme-trunk/configure.in Fri Jul 20 08:34:05 2007
@@ -411,7 +411,6 @@
full|r5rs|dev)
use_continuation=yes
use_quasiquote=yes
- use_hygienic_macro=yes
use_promise=yes
use_int=yes
use_numeric_io=yes
@@ -428,7 +427,6 @@
small)
use_continuation=no
use_quasiquote=no
- use_hygienic_macro=no
use_promise=no
use_int=yes
use_numeric_io=yes
@@ -445,7 +443,6 @@
siod)
use_continuation=no
use_quasiquote=no
- use_hygienic_macro=no
use_promise=no
use_int=yes
use_numeric_io=yes
@@ -462,7 +459,6 @@
uim)
use_continuation=yes
use_quasiquote=yes
- use_hygienic_macro=no
use_promise=yes
use_int=yes
use_numeric_io=yes
@@ -475,6 +471,16 @@
use_reader=yes
use_writer=yes
use_load=yes
+ ;;
+ esac
+
+ # experimental features
+ case "$enable_conf" in
+ dev)
+ use_hygienic_macro=yes
+ ;;
+ *)
+ use_hygienic_macro=no
;;
esac
Modified: sigscheme-trunk/test/test-srfi1-another.scm
==============================================================================
--- sigscheme-trunk/test/test-srfi1-another.scm (original)
+++ sigscheme-trunk/test/test-srfi1-another.scm Fri Jul 20 08:34:05 2007
@@ -1872,11 +1872,11 @@
(assert-equal? (tn) 1 (find odd? '(1 2 3 . 4)))
(tn "find circular list")
;; Rotates the circular list as like as find-tail.
-(assert-eq? (tn) 1 (find (lambda (x) (= x 1)) clst4))
-(assert-eq? (tn) 2 (find (lambda (x) (= x 2)) clst4))
-(assert-eq? (tn) 3 (find (lambda (x) (= x 3)) clst4))
-(assert-eq? (tn) 4 (find (lambda (x) (= x 4)) clst4))
-(assert-eq? (tn)
+(assert-equal? (tn) 1 (find (lambda (x) (= x 1)) clst4))
+(assert-equal? (tn) 2 (find (lambda (x) (= x 2)) clst4))
+(assert-equal? (tn) 3 (find (lambda (x) (= x 3)) clst4))
+(assert-equal? (tn) 4 (find (lambda (x) (= x 4)) clst4))
+(assert-equal? (tn)
1
(let ((cnt 2))
(find (lambda (x)
@@ -1885,7 +1885,7 @@
(and (zero? cnt)
(= x 1)))
clst4)))
-(assert-eq? (tn)
+(assert-equal? (tn)
2
(let ((cnt 2))
(find (lambda (x)
@@ -1894,7 +1894,7 @@
(and (zero? cnt)
(= x 2)))
clst4)))
-(assert-eq? (tn)
+(assert-equal? (tn)
3
(let ((cnt 2))
(find (lambda (x)
@@ -1903,7 +1903,7 @@
(and (zero? cnt)
(= x 3)))
clst4)))
-(assert-eq? (tn)
+(assert-equal? (tn)
1
(let ((cnt 3))
(find (lambda (x)
@@ -1912,7 +1912,7 @@
(and (zero? cnt)
(= x 1)))
clst4)))
-(assert-eq? (tn)
+(assert-equal? (tn)
1
(let ((cnt 4))
(find (lambda (x)
