Author: yamakenz Date: Mon Apr 28 14:46:00 2008 New Revision: 5459
Modified: trunk/scm/light-record.scm trunk/test2/test-light-record.scm Log: * scm/light-record.scm - Require SRFI-43 for non-uim Scheme implementations * test2/test-light-record.scm - Disable *test-track-progress* Modified: trunk/scm/light-record.scm ============================================================================== --- trunk/scm/light-record.scm (original) +++ trunk/scm/light-record.scm Mon Apr 28 14:46:00 2008 @@ -70,10 +70,12 @@ ;; <default value> ::= <any Scheme object> (require-extension (srfi 1 23)) -;;(require-extension (srfi 43)) ;; vector-copy +(cond-expand + (uim) + (else + (require-extension (srfi 43)))) ;; vector-copy (require "util.scm") -;;(require "./util") (define %HYPHEN-SYM (string->symbol "-")) Modified: trunk/test2/test-light-record.scm ============================================================================== --- trunk/test2/test-light-record.scm (original) +++ trunk/test2/test-light-record.scm Mon Apr 28 14:46:00 2008 @@ -30,9 +30,10 @@ ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (require-extension (unittest)) -(set! *test-track-progress* #t) (require "light-record.scm") + +(set! *test-track-progress* #f) (define dummy (lambda () (+ 1 2) #f))
