[uim-commit] r1782 - in branches/r5rs/sigscheme: . test
yamaken at freedesktop.org
yamaken at freedesktop.org
Mon Oct 3 15:07:00 PDT 2005
Author: yamaken
Date: 2005-10-03 15:06:56 -0700 (Mon, 03 Oct 2005)
New Revision: 1782
Modified:
branches/r5rs/sigscheme/config.h
branches/r5rs/sigscheme/sigscheme.c
branches/r5rs/sigscheme/test/gauche-primsyn.scm
branches/r5rs/sigscheme/test/test-srfi1.scm
branches/r5rs/sigscheme/test/test-srfi2.scm
branches/r5rs/sigscheme/test/test-srfi34.scm
branches/r5rs/sigscheme/test/test-srfi38.scm
branches/r5rs/sigscheme/test/test-srfi60.scm
branches/r5rs/sigscheme/test/test-srfi8.scm
Log:
* This commit changes optional features enabling on demand. This makes
SIOD-compatibility disabled at startup time, so the SIOD versionn of
'=' predicate does not prevent running unit tests
* sigscheme/config.h
- (SCM_USE_SRFI1): Enable by default
* sigscheme/sigscheme.c
- (SigScm_Initialize_internal): Disable all ScmExp_use()
* sigscheme/test/test-srfi1.scm
* sigscheme/test/test-srfi2.scm
* sigscheme/test/test-srfi8.scm
* sigscheme/test/test-srfi60.scm
* sigscheme/test/gauche-primsyn.scm
* sigscheme/test/test-srfi34.scm
* sigscheme/test/test-srfi38.scm
- Insert appropriate '(use srfi-*)'
Modified: branches/r5rs/sigscheme/config.h
===================================================================
--- branches/r5rs/sigscheme/config.h 2005-10-03 21:39:49 UTC (rev 1781)
+++ branches/r5rs/sigscheme/config.h 2005-10-03 22:06:56 UTC (rev 1782)
@@ -42,7 +42,7 @@
/*===========================================================================
SRFI (Scheme Request for Implementation) procedures written in C
===========================================================================*/
-#define SCM_USE_SRFI1 0 /* use SRFI-1 list library */
+#define SCM_USE_SRFI1 1 /* use SRFI-1 list library */
#define SCM_USE_SRFI2 1 /* use SRFI-2 'and-let*' */
#define SCM_USE_SRFI8 1 /* use SRFI-8 'receive' */
#define SCM_USE_SRFI23 1 /* use SRFI-23 'error' */
Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c 2005-10-03 21:39:49 UTC (rev 1781)
+++ branches/r5rs/sigscheme/sigscheme.c 2005-10-03 22:06:56 UTC (rev 1782)
@@ -377,8 +377,8 @@
Scm_DefineAlias("call/cc", "call-with-current-continuation");
#endif
-#if 1
- /* enable all features for backward compatibility */
+#if 0
+ /* enable all features as backward compatibility */
ScmExp_use(Scm_Intern("srfi-1"), SCM_INTERACTION_ENV);
ScmExp_use(Scm_Intern("srfi-2"), SCM_INTERACTION_ENV);
ScmExp_use(Scm_Intern("srfi-8"), SCM_INTERACTION_ENV);
Modified: branches/r5rs/sigscheme/test/gauche-primsyn.scm
===================================================================
--- branches/r5rs/sigscheme/test/gauche-primsyn.scm 2005-10-03 21:39:49 UTC (rev 1781)
+++ branches/r5rs/sigscheme/test/gauche-primsyn.scm 2005-10-03 22:06:56 UTC (rev 1782)
@@ -3,6 +3,7 @@
;;;
(load "./test/unittest-gauche.scm")
+(use srfi-8)
;;----------------------------------------------------------------
;(test-section "contitionals")
Modified: branches/r5rs/sigscheme/test/test-srfi1.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-srfi1.scm 2005-10-03 21:39:49 UTC (rev 1781)
+++ branches/r5rs/sigscheme/test/test-srfi1.scm 2005-10-03 22:06:56 UTC (rev 1782)
@@ -1,4 +1,6 @@
(load "./test/unittest.scm")
+(use srfi-1)
+(use srfi-8)
; xcons
(assert-equal? "xcons test1" '(a b c) (xcons '(b c) 'a))
Modified: branches/r5rs/sigscheme/test/test-srfi2.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-srfi2.scm 2005-10-03 21:39:49 UTC (rev 1781)
+++ branches/r5rs/sigscheme/test/test-srfi2.scm 2005-10-03 22:06:56 UTC (rev 1782)
@@ -31,6 +31,7 @@
;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(load "./test/unittest.scm")
+(use srfi-2)
;; (and-let* <claws> <body>)
;;
Modified: branches/r5rs/sigscheme/test/test-srfi34.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-srfi34.scm 2005-10-03 21:39:49 UTC (rev 1781)
+++ branches/r5rs/sigscheme/test/test-srfi34.scm 2005-10-03 22:06:56 UTC (rev 1782)
@@ -1,4 +1,5 @@
(load "./test/unittest.scm")
+(use srfi-34)
; with-exception-handler
(with-exception-handler
Modified: branches/r5rs/sigscheme/test/test-srfi38.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-srfi38.scm 2005-10-03 21:39:49 UTC (rev 1781)
+++ branches/r5rs/sigscheme/test/test-srfi38.scm 2005-10-03 22:06:56 UTC (rev 1782)
@@ -1,4 +1,5 @@
;; No assertive tests for now, just print something and see if we bloat. ;(load "test/unittest.scm")
+(use srfi-38)
(let* ((s "abc")
(convolution `(,s 1 #(,s b) (2) () ,s)))
Modified: branches/r5rs/sigscheme/test/test-srfi60.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-srfi60.scm 2005-10-03 21:39:49 UTC (rev 1781)
+++ branches/r5rs/sigscheme/test/test-srfi60.scm 2005-10-03 22:06:56 UTC (rev 1782)
@@ -31,6 +31,7 @@
;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(load "test/unittest.scm")
+(use srfi-60)
;;
Modified: branches/r5rs/sigscheme/test/test-srfi8.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-srfi8.scm 2005-10-03 21:39:49 UTC (rev 1781)
+++ branches/r5rs/sigscheme/test/test-srfi8.scm 2005-10-03 22:06:56 UTC (rev 1782)
@@ -1,4 +1,5 @@
(load "./test/unittest.scm")
+(use srfi-8)
(receive (a b c)
(values #f #t '())
More information about the uim-commit
mailing list